autosaveintemp.asp

implementation of survey

<%

Response.Buffer = True 
On Error Resume Next

dim xmlDoc, currentSurvey
set xmlDoc = server.CreateObject("Microsoft.xmlDom")
xmlDoc.load Request
xmlDoc.save server.MapPath("../xmls/answerSheetModel.xml") 
xmlDoc.save server.MapPath("../temp/answerSheetModel.xml") 

xmlDoc=nothing
xmlDoc.close
if Err.number<>0 then
	response.Write "survey failed, please try again"
	else
	response.Write("Thank you for your time")
	end if

%>