<% @LANGUAGE = VBScript %> <% Dim strConnString Dim objConn Dim strSQL Dim strFirstnameField Dim strLastnameField Dim strEmailField Dim strCityField Dim strStateprovinceField Dim strCountryField Dim strOccupationField Dim strSubjectField Dim strMessageField If Request.Form("action") <> "Save Form Data" Then %>

Feedback Form Please complete the following fields, if applicable. Your first and last name, e-mail address and occupation are required fields. Please also indicate any further comments, and whether or not you would like to receive a response. Potential investors should use the Become an Investor form located on this site. " method="post"> First Name: Last Name: E-Mail: City: State/Province: Country: Occupation: Subject: Message Text: <% Else strFirstnameField = replace(Request.Form("firstname"),"'","´") strLastnameField = replace(Request.Form("lastname"),"'","´") strEmailField = replace(Request.Form("email"),"'","´") strCityField = replace(Request.Form("city"),"'","´") strStateprovinceField = replace(Request.Form("stateprovince"),"'","´") strCountryField = replace(Request.Form("country"),"'","´") strOccupationField = replace(Request.Form("occupation"),"'","´") strSubjectField = replace(Request.Form("subject"),"'","´") strMessageField = replace(Request.Form("message"),"'","´") set objConn = server.createObject("ADODB.Connection") strConnection = "DSN=ipg_database;Database=feedback;" strConnection = strConnection & "UID=gabriel;PWD=1010;" & "Connect Timeout=15" objConn.Open strConnection strSQL = "" strSQL = strSQL & "INSERT INTO feedback" strSQL = strSQL & "(firstname, lastname, email, city, stateprovince, country, occupation, subject, message) " & vbCrLf strSQL = strSQL & "VALUES (" strSQL = strSQL & "'" & strFirstnameField & "'" strSQL = strSQL & ", " strSQL = strSQL & "'" & strLastnameField & "'" strSQL = strSQL & ", " strSQL = strSQL & "'" & strEmailField & "'" strSQL = strSQL & ", " strSQL = strSQL & "'" & strCityField & "'" strSQL = strSQL & ", " strSQL = strSQL & "'" & strStateprovinceField & "'" strSQL = strSQL & ", " strSQL = strSQL & "'" & strCountryField & "'" strSQL = strSQL & ", " strSQL = strSQL & "'" & strOccupationField & "'" strSQL = strSQL & ", " strSQL = strSQL & "'" & strSubjectField & "'" strSQL = strSQL & ", " strSQL = strSQL & "'" & strMessageField & "'" strSQL = strSQL & ");" objConn.Execute strSQL objConn.Close Set objConn = Nothing %> Feedback Form Thanks for submitting your information to us! Depending on the nature of your inquiry, someone will get in touch with you shortly. <% End If %> For general inquiries, please send e-mail to info@ipgenetics.com. For web site errors or content issues, please e-mail webmaster@ipgenetics.com. Copyright © October 2001 Integrated Plant Genetics, Inc. -- All Rights Reserved