<%@ LANGUAGE="VBSCRIPT" %>

Thanks for your input

Please Note: if you receive any error messages when attempting to post your survey responses, please send an email message to reithel@bus.olemiss.edu with the message.
 <% fname=Replace(Request.Form("FSTUDENTNAME"),"'","''") femail=Replace(Request.Form("FEMAILADDRESS"),"'","''") fclass=Request.Form("FCLASSIFICATION") Set SurveyDB=Server.CreateObject("ADODB.Connection") SurveyDB.Open sDSN, optimistic strSQL = "INSERT INTO students " _ & "( studentname, emailaddress, StudentClassification ) " _ & "SELECT '" & fname & "' AS studentname, '" _ & femail &"' AS emailaddress, '" _ & fclass & "' AS StudentClassification;" ' response.write(strSQL) SurveyDB.Execute(strSQL) SurveyDB.Close %>

 

Return to Main Page

Designed By

 Brian J. Reithel, Ph.D.