%@ 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.<% 'response.write(sDSN) fname=Replace(Request.Form("INAME"),"'","''") femail=Replace(Request.Form("IEMAIL"),"'","''") Set SurveyDB=Server.CreateObject("ADODB.Connection") SurveyDB.Open sDSN, optimistic strSQL = "INSERT INTO students " _ & "( name, email ) " _ & "SELECT '" & fname & "' AS name, '" _ & femail &"' AS email; " ' response.write(strSQL) SurveyDB.Execute(strSQL) SurveyDB.Close %>
Designed By
Brian J. Reithel, Ph.D.