%@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 rsConfigReply = Server.CreateObject("ADODB.Recordset") rsConfigReply.ActiveConnection = MM_Intellisource_STRING rsConfigReply.Source = "SELECT * FROM FeedbackInfo" rsConfigReply.CursorType = 0 rsConfigReply.CursorLocation = 2 rsConfigReply.LockType = 3 rsConfigReply.Open() rsConfigReply_numRows = 0 %>
e-Configurator
You
need e-Configurator when
you need to match product or document modules, components, paragraphs, features,
options, etc. to customer requirements, often at the point-of-sale.
Typically,
configuration covers two different types of knowledge-rich applications: capturing
customer requirements, and translating those requirements into product or
document generation as understood by those who must assemble the final product
or document. e-Configurator is unique in its ability
to accomplish both of these tasks, to determine your customer's specific needs
and generate a bill of materials or document assembly instructions with rolled
up costs and other features, suitable for direct use by sales and assembly
personnel.
e-Configurator is an optional edition of XpertRule Software's Knowledge Builder knowledge authoring platform, with advanced features critical to configuration applications including:
Hierarchies.
A hierarchy is built at design-time or run-time by defining the assemblies,
sub-assemblies, and components which make up the product or document. Hierarchies can
be dynamic by allowing instances of assemblies and components to be added at
runtime.
Constraint
Knowledge. Constraints are restrictions placed on the selection
of certain combinations of options and features in order to prevent invalid
choices being made by the user. Constraints provide the means to restrict
run-time user choices and to ensure valid requirement capture by avoiding
invalid user input or warning the user of the invalidity of such
combinations after they are made.
e-Configurator surpasses all other approaches to product or document configuration by assuring you of graphical rapid data capture, and ease of maintenance of configuration knowledge over the long term.


![]() |
|||||||||||
![]() |
|||||||||||
|
|
|||||||||||
|
|
Representing XpertRule Software in the Americas |
|
|
©
Copyright 2006 Renaissance International Corp.
|
|