<%@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 = "feedthanks.asp" MM_fieldsStr = "Comments|value|Category|value|SendProMailingList|value|SalesCall|value|SendLiterature|value|SendPrices|value|KBDemo|value|MinerDemo|value|fname|value|lname|value|title|value|company|value|address|value|city|value|US States|value|Zip5|value|Countries|value|phone|value|email|value" MM_columnsStr = "Comments|',none,''|Category|',none,''|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 FeedbackCategory = Server.CreateObject("ADODB.Recordset") FeedbackCategory.ActiveConnection = MM_Intellisource_STRING FeedbackCategory.Source = "SELECT Category, Value FROM FeedBackCategory" FeedbackCategory.CursorType = 0 FeedbackCategory.CursorLocation = 2 FeedbackCategory.LockType = 3 FeedbackCategory.Open() FeedbackCategory_numRows = 0 %> <% set rsFeedbackInfo = Server.CreateObject("ADODB.Recordset") rsFeedbackInfo.ActiveConnection = MM_Intellisource_STRING rsFeedbackInfo.Source = "SELECT * FROM FeedbackInfo" rsFeedbackInfo.CursorType = 0 rsFeedbackInfo.CursorLocation = 2 rsFeedbackInfo.LockType = 3 rsFeedbackInfo.Open() rsFeedbackInfo_numRows = 0 %> Feedback
[FrontPage Save Results Component]

We Welcome Your Comments

Please tell us what you think about our web site, company, products, or services. If you provide us with your contact information, we will be able to reach you in case we have any questions.

Comments 

Category

Keep me on your mailing list
Have someone contact me
Send Price List
Send Demo Passwords
Disabled

* => Required Field

* First Name
* Last Name
* E-mail
* Title
* Company

Address

City
State
 
Zip Code
 
Country

Phone
 

 

If you get a 'FrontPage Error', please check required fields, and click 'Submit' again.

 
products
case studiesdemosnewscompany
Please Contact Us

Telephone
+1 866-465-5111
+1 978-465-5111
FAX
+1 978-465-0666

E- mail
General Information:
info@IntelliCrafters.com
Evaluation Passwords:
passwords@IntelliCrafters.com
Sales:
sales@IntelliCrafters.com
Customer Support:
support@IntelliCrafters.com
Webmaster:
WebMaster@IntelliCrafters.com

Representing XpertRule Software in the Americas
© Copyright 2006 Renaissance International Corp.
<% FeedbackCategory.Close() %> <% rsFeedbackInfo.Close() %>