pickupsavedsurvey.asp

implementation of survey

<%
		on error resume next

		dim xmlDoc,container, currentSurvey, xmlText, idAddr, resource
		set xmlDoc = server.CreateObject("Microsoft.xmlDom")
		
		ipAddr = Request.ServerVariables("REMOTE_ADDR")	
		xmlDoc.load(Server.MapPath("../temp") & "/" & ipAddr & ".xml")	
		xmlText = xmlDoc.xml

		if Err.number<>0 then
			response.Write ("save failed, please try again")
			else
				response.Write(xmlText)
			end if
%>