<%
Dim vid_file
vid_file = Request.ServerVariables("APPL_PHYSICAL_PATH")& "red\pay\vid.dat"
Dim vkey_file
vkey_file = Request.ServerVariables("APPL_PHYSICAL_PATH")& "red\pay\vkey.dat"
Dim retURL
retURL =  "https://10.1.33.154/vendor/pay/psuccess.asp"
Dim purl
purl = "https://payzio.com/manager/pay.php"
dim fp1
set fp1 = Server.CreateObject("Scripting.FileSystemObject")
'fExists=FileSysObj.FileExists(vid_file)
set TextStreamObj = fp1.OpenTextFile(vid_file,1,true)
'TextStreamObj.WriteLine("This text will be added to the end of file")
'Single Variable Declarations
dim fp2
set fp2 = Server.CreateObject("Scripting.FileSystemObject")
'fExists=FileSysObj.FileExists(vid_file)
set TextStreamObj = fp2.OpenTextFile(vkey_file,1,true)
'TextStreamObj.WriteLine("This text will be added to the end of file")


%>