<%@ LANGUAGE="VBSCRIPT" %> Update Student Directory Information

Thanks for your update

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("UNAME"),"'","''") femail=Replace(Request.Form("UEMAIL"),"'","''") fphone=Replace(Request.Form("UPHONE"),"'","''") fcell=Replace(Request.Form("UCELL"),"'","''") emailclause="" if femail > "" then emailclause = " email ='" & femail & "'" end if phoneclause="" if fphone > "" then if emailclause > "" then phoneclause = ", phone ='" & fphone & "'" else phoneclause = " phone ='" & fphone & "'" end if end if cellclause="" if fcell > "" then if emailclause > "" or phoneclause > "" then cellclause = ", cell ='" & fcell & "' " else cellclause = " cell ='" & fcell & "' " end if end if UpdateSQL = "UPDATE students SET " _ & emailclause _ & phoneclause _ & cellclause _ & " WHERE name='" & fname & "';" Set SurveyDB=Server.CreateObject("ADODB.Connection") SurveyDB.Open sDSN, optimistic SurveyDB.Execute(UpdateSQL) SurveyDB.Close SurveyDB=Null %>

 


Return to Survey Menu

Designed By

 Brian J. Reithel, Ph.D.