%@ LANGUAGE="VBSCRIPT" %>
View/Update Student Directory Information
<%
fname=Replace(Request.Form("UNAME"),"'","''")
Set SurveyDB=Server.CreateObject("ADODB.Connection")
SurveyDB.Open sDSN, optimistic
MyInquirySQL="Select * From Students WHERE Name='" & fname & "';"
set RS=SurveyDB.Execute(MyInquirySQL)
tempEmail="*NotFound*"
if not RS.EOF then
tempEmail=RS("email")
end if
SurveyDB.Close
SurveyDB=Null
%>
<% if tempEmail <> "*NotFound*" then %>
<% else %>
No matching record in the directory.
<% end if %>
Return to Survey Menu
Designed By
Brian J. Reithel, Ph.D.