viewsurveyresult.asp

implementation of survey

<%
Response.Buffer = True 
On Error Resume Next
dim idNode, myID, idCode, realID,realIDNode, enteredID, subNode, xml

set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = false
xml.load(Server.MapPath("../xmls") & "/surveyInfo.xml")

set idNode =xml.getElementsByTagName("surveyID")
set myID = idNode.item(0)
idCode = myID.nodeTypedValue
set idNode =nothing
set myID=nothing
set xml=nothing

set enteredID = Server.CreateObject("Microsoft.XMLDOM")
enteredID.async = false
enteredID.load request

set realIDNode = enteredID.getElementsByTagName("surveyID")
set subNode =realIDNode.item(0)
realID = subNode.nodeTypedValue
set subNode = nothing
set realIDNode = nothing
set enteredID=nothing

if inStr(1, realID, idCode, 1)>0 then
	session("viewingRight")="yes"
	response.write "viewSurveyResultPage.asp"
else
	response.write "Sorry, invalid survey id" 
end if


if Err.number<>0 then
			response.Write "view result failed, please try again" &err
end if

%>