<%
strFullName = request("FullName")
strInstitution = request("Institution")
strPhone = request("Phone")
strEmail = request("Email")
strCity = request("City")
strMailingAddress = request("MailingAddress")
strZipCode = request("ZipCode")
strPersonalWebPage = request("PersonalWebPage")
strArrivalDate = request("ArrivalDate")
strDepartureDate = request("DepartureDate")
strAbstract = request("Abstract")
strTitle = request("Title")
strRadio = request("R1")
AC = chr(13)
strBody = "New Registration Gravity2001" & AC & AC & strFullName
strBody = strBody & AC & strInstitution & AC & strMailingAddress & AC & strZipCode & " - " & strCity
strBody = strBody & AC & strPhone & AC & strEmail & AC & strPersonalWebPage & AC
strBody = strBody & "Arrival Date : " & strArrivalDate & AC
strBody = strBody & "Departure Date: " & strDepartureDate & AC & AC
if strRadio = "YES" then
strBody = strBody & "Talk: " & strTitle
strBody = strBody & AC & "Abstract: " & strAbstract & AC
end if
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = "giampiero.esposito@na.infn.it"
objCDO.From = "gravity2001@na.infn.it"
objCDO.Subject = "New registration Gravity2001"
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Body = strBody
objCDO.Send
Set objCDO = nothing
%>
Registration Form
Thanks, your registration has been succesfully completed !
Back to the "Quantum Gravity and Spectral Geometry" Meeting