REGISTRATION AND ROOM RESERVATION

*Affiliation and Address:
Personal Information
Title:
*Surname:
*Other Names:
 
Telephone:
Fax:
*Email:
   
Accompanied by Spouse and children aged
   
*Room Request: nights from: to:
*Room Type: Single Room Double Room Triple Room
  Shared by family Shared by another participant(s)
Full name of the other participant(s) if you have a preference:
   
Accommodation fee (For accompanying persons and the days except course period):
  nights x US$ =US$
  nights x TL = TL

Note: You may use the exchange rate of Central Bank of Turkey to convert US$ to TL .

Note: Please complete the fields with '*' mark before sending the form. Also, please do not use special Turkish characters and the "ENTER" key of your computer when you are writing in the text boxes.

<% choice1=Request.Form("SENDTHEFORM") choice2=Request.Form("EXIT") If choice1="SEND THE FORM" then affiliation=Request.Form ("affiliation") title=Request.Form("Title") firstname=Request.Form("firstname") lastname=Request.Form("lastname") telephone=Request.Form("telephone") fax=Request.Form("fax") email=Request.Form("email") accompany=Request.Form("accompany") childnr=Request.Form("childnr") childage=Request.Form("childage") nightnr=Request.Form("nightnr") nightst=Request.Form("nightst") nightfn=Request.Form("nightfn") room=Request.Form("room") room2=Request.Form("room2") partnames=Request.Form("partnames") totalnight=Request.Form("totalnight") price=Request.Form("price") total=Request.Form("total") totalnighttl=Request.Form("totalnighttl") pricetl=Request.Form("pricetl") totaltl=Request.Form("totaltl") if affiliation<>"" and firstname<>"" and lastname<>"" and email<>"" and nightnr<>"" and nightst<>"" and nightfn<>"" and room<>"" then ' send by connecting to port 25 of the SMTP server Dim iMsg Dim iConf Dim Flds Dim strHTML Dim strSmartHost Const cdoSendUsingPort = 2 StrSmartHost = "web.me.metu.edu.tr" set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields ' set the CDOSYS configuration fields to use port 25 on the SMTP server With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Update End With ' build HTML for message body strHTML = "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "Below is the result of PTC-03 Registration feedback form, It was submitted by " & firstname & " " & lastname & " ( " & email & " ) on " & DATE() & "

Affiliation and Address: " & affiliation & "
Title: " & title & "
Surname: " & lastname & "
Other Names:" & firstname & "

Telephone: " & telephone & "
Fax: " & fax & "
E-mail: " & email & "

[" & accompany & "] Accompanied by Spouse and " & childnr & " children aged " strHTML = strHTML & childage & "

Room Request: " & nightnr & " nights from " & nightst & " to " & nightfn & "

Room type: " & room & " " & room2 & "

Full name of the other participant(s) if you have preferences: " & partnames & "

Accommodation fee: "& totalnight & " nights X US$ " & price & " = US$" & total & " / " & totalnighttl & " nights X " & pricetl & " TL = " & totaltl & " TL " & vbCrLf strHTML = strHTML & "" strHTML = strHTML & "" ' apply the settings to the message With iMsg Set .Configuration = iConf .To = "egelen@egik.com.tr" .From = "ichmt@ichmt.org" .cc = email .bcc = "arinc@ichmt.org" .Subject = "PTC-03 Registration feedback form" .HTMLBody = strHTML .Send End With ' cleanup of variables Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing Else if affiliation="" or firstname="" or lastname="" or email="" or nightnr="" or nightst="" or nightfn="" or room="" then Response.Redirect "errorreg.htm" End if End if Response.Redirect "registration.asp?affiliation="&affiliation&"&title="&title&"&firstname="&firstname&"&lastname="&lastname&"&telephone="&telephone&"&fax="&fax&"&email="&email&"&accompany="&accompany&"&childnr="&childnr&"&childage="&childage&"&nightnr="&nightnr&"&nightst="&nightst&"&nightfn="&nightfn&"&room="&room&"&room2="&room2&"&partnames="&partnames&"&totalnight="&totalnight&"&price="&price&"&total="&total&"&totalnighttl="&totalnighttl&"&pricetl="&pricetl&"&totaltl="&totaltl End if If Choice2="EXIT" then Response.Redirect "announce.html" End if%>