<%
	'Dim variables
	Dim objFSO
	Dim objTextStream
	Dim PathFile
	'Look for the path to current directory, change to match your directory based on root
	PathFile = Server.MapPath("data/data.txt")
	'Create the filesystem Object
	set objFSO = createobject("Scripting.FileSystemObject")
	'Open the file: if doesn't exists, create it
	Set objTextStream = objFSO.OpenTextFile(PathFile, 8, True)
	'Write to the data file
		  objTextStream.Write  chr(13) & Chr(34) & Request("IdCode") & Chr(34) & "," & Chr(34) & Request("FirstName") & Chr(34) & "," & Chr(34) & Request("LastName") & Chr(34) & "," & Chr(34) & Request("Email") & Chr(34) & "," & Chr(34) & Request("Address1") & Chr(34) & "," & Chr(34) & Request("Address2") & Chr(34) & "," & Chr(34) & Request("City") & Chr(34) & "," & Chr(34) & Request("State") & Chr(34) & "," & Chr(34) & Request("Zip") & Chr(34) & "," & Chr(34) & Request("NCPDP") & Chr(34) & "," & Chr(34) & Request("license") & Chr(34) & "," & Chr(34) & Request("NCPA") & Chr(34) & "," & Chr(34) & Request("ncpa_number") & Chr(34) & "," & Chr(34) & Request("survey1q1") & Chr(34) & "," & Chr(34) & Request("survey1q2") & Chr(34) & "," & Chr(34) & Request("survey1q3") & Chr(34) & "," & Chr(34) & Request("survey2q1") & Chr(34) & "," & Chr(34) & Request("survey2q2") & Chr(34) & "," & Chr(34) & Request("survey2q3") & Chr(34)
	'Say OK to Flash
	  Response.Write "writing=Ok"
	'Clean objects
	 objTextStream.Close
	  Set objTextStream = Nothing
	  Set objFSO = Nothing
%>