savedata.asp

implementation of survey

<%

Response.Buffer = True 
On Error Resume Next
 
dim xmlDoc, currentSurvey, idAddr
set xmlDoc = server.CreateObject("Microsoft.xmlDom")
xmlDoc.load Request

ipAddr = Request.ServerVariables("REMOTE_ADDR")
Response.Cookies("unFinishedSurvey") = ipAddr & ".xml"	
Response.Cookies("unFinishedSurvey").Expires=Date+60 	
xmlDoc.save server.MapPath("../temp") & "/" & ipAddr & ".xml"  

if Err.number<>0 then
	response.Write ("save failed, please try again")
	else
		response.Write("survey has been saved as """ & ipAddr & ".xml""")
	end if
%>