<%@ 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("FSTAFFNAME"),"'","''") femail=Replace(Request.Form("FEMAILADDRESS"),"'","''") fclass=Request.Form("FCLASSIFICATION") Set SurveyDB=Server.CreateObject("ADODB.Connection") SurveyDB.Open sDSN, optimistic strSQL = "INSERT INTO staff " _ & "( staffname, emailaddress, StaffClassification ) " _ & "SELECT '" & fname & "' AS staffname, '" _ & femail &"' AS emailaddress, '" _ & fclass & "' AS StaffClassification;" ' response.write(strSQL) SurveyDB.Execute(strSQL) SurveyDB.Close %>

 

Return to Main Page

Designed By

 Brian J. Reithel, Ph.D.