<%@ LANGUAGE = "VBScript" %>
<% Option Explicit %>
<%
Dim fso
Dim readApplicantFile, writeApplicantFile
Dim fileString
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("c:\Inetpub\wwwroot\rdch\rsvp\rsvp.xml") Then
Set readApplicantFile = fso.OpenTextFile("c:\Inetpub\wwwroot\rdch\rsvp\rsvp.xml",1,False)
fileString = readApplicantFile.ReadAll
readApplicantFile.Close
Set readApplicantFile = nothing
Replace fileString,"",""
Set writeApplicantFile = fso.OpenTextFile("c:\Inetpub\wwwroot\rdch\rsvp\rsvp.xml",2,True)
writeApplicantFile.Write(Replace(fileString,"",""))
Else
Set writeApplicantFile = fso.CreateTextFile("c:\Inetpub\wwwroot\rdch\rsvp\rsvp.xml",True)
writeApplicantFile.WriteLine("")
writeApplicantFile.WriteLine("")
End If
writeApplicantFile.WriteLine("")
writeApplicantFile.WriteLine("")
writeApplicantFile.WriteLine(request.form("Message"))
writeApplicantFile.WriteLine("")
writeApplicantFile.WriteLine("")
writeApplicantFile.WriteLine(request.form("firstname"))
writeApplicantFile.WriteLine("")
writeApplicantFile.WriteLine("")
writeApplicantFile.WriteLine(request.form("lastname"))
writeApplicantFile.WriteLine("")
writeApplicantFile.WriteLine("")
writeApplicantFile.WriteLine(request.form("Email"))
writeApplicantFile.WriteLine("")
writeApplicantFile.WriteLine("")
writeApplicantFile.WriteLine(request.form("phonenumber"))
writeApplicantFile.WriteLine("")
writeApplicantFile.WriteLine("")
writeApplicantFile.WriteLine(request.form("SpecialNeeds"))
writeApplicantFile.WriteLine("")
writeApplicantFile.WriteLine("")
writeApplicantFile.WriteLine("")
writeApplicantFile.close
Set writeApplicantFile=nothing
Set fso=nothing
%>
RDCH: Institute of Excellence
Thank You
For submitting your RSVP for the event. Thank you for your interest and support. For event inquiries, please contact Michelle Pascaran at 301.555.8803 x234 or mpascaran@hcdi.com
