<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_Intellisource_STRING MM_editTable = "FeedbackInfo" MM_editRedirectUrl = "replythanks.htm" MM_fieldsStr = "MailList|value|SalesCall|value|Literature|value|SendPrice|value|KBDemo|value|MinerDemo|value|Fname|value|Lname|value|Title|value|Company|value|Address|value|City|value|State|value|Zip|value|Country|value|Phone|value|Email|value" MM_columnsStr = "MailList|none,1,0|SalesCall|none,1,0|Literature|none,1,0|SendPrice|none,1,0|KBDemo|none,1,0|MinerDemo|none,1,0|Fname|',none,''|Lname|',none,''|Title|',none,''|Company|',none,''|Address|',none,''|City|',none,''|State|',none,''|Zip|',none,''|Country|',none,''|Phone|',none,''|Email|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% set rsKBreply = Server.CreateObject("ADODB.Recordset") rsKBreply.ActiveConnection = MM_Intellisource_STRING rsKBreply.Source = "SELECT * FROM FeedbackInfo" rsKBreply.CursorType = 0 rsKBreply.CursorLocation = 2 rsKBreply.LockType = 3 rsKBreply.Open() rsKBreply_numRows = 0 %> Knowledge Builder

XpertRule® Knowledge Builder®

XpertRule Knowledge Builder is an enterprise strength environment for developing, deploying, and managing Knowledge Based expert system applications and components.  XpertRule Knowledge Builder excels in its class by delivering advanced object oriented development features through the simplicity of a graphical Windows interface   In this way, users from beginner to professional developer can master it readily.  Your team becomes productive faster, and keeps at a minimum the cost of development, deployment, and project management as well as maintenance and enhancement.

The automation of business rules --- expertise, know-how, procedures, policies, and regulations --- powers today's "knowledge economy" and "e-business," doing business on the web.  XpertRule Knowledge Builder 's ability to automate such rules with ease makes it essential to deploying business knowledge over the web.

XpertRuleKnowledge Builder is unique in the breadth of its integrated knowledge technologies and applications, its comprehensive development environment and its flexible knowledge deployment options.

XpertRule Knowledge Builder Delivers:

An evaluation copy of XpertRule Knowledge Builder is available for download from this link. After download, please request an install password using the Form below.

Need More Information or Passwords?

 

 

 

 

For more information
or passwords

 

products
case studiesdemosnewscompany

XpertRule Knowledge Builder has the unique ability to automate any knowledge based function. Types of applications include:

Making recommendations and advice to help customers select products, services, and present personalized recommendation service. Share knowledge within a company and enforce best practice.

Troubleshooting, in customer support and help desk applications to support call center agents and customers by automatically processing some queries and empowering support agents to handle more queries accurately and consistently.

Risk & Condition Assessment & Monitoring to monitor your business transactions for patterns that represent a high risk --- assess risk of fraud in financial transactions, insurance claims, loan applications, etc. Assess the condition of manufacturing and process plants to detect early warning signs of failure.

Workflow to decide on the next task or action in a workflow system.

Resource Optimization to determine optimal solutions to problems that have many possible solutions, such as design, resource scheduling and planning, and component blending

Decision Making Knowledge, including case-based reasoning, to diagnose, select, recommend, advise, assess, monitor, manage workflow, etc.

 

Representing XpertRule Software in the Americas

© Copyright 2006 Renaissance International Corp.
<% rsKBreply.Close() %>