%@ LANGUAGE="VBSCRIPT" %>
View/Update Student Directory Information
<%
fname=Replace(Request.QueryString("UNAME"),"'","''")
Set SurveyDB=Server.CreateObject("ADODB.Connection")
SurveyDB.Open sDSN, optimistic
MyInquirySQL="Select * From Students WHERE StudentName='" & fname & "';"
set RS=SurveyDB.Execute(MyInquirySQL)
tempEmail="*NotFound*"
if not RS.EOF then
tempEmail=RS("emailaddress")
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.