PRE-REGISTRATION FORM
Thmt-03, Turbulence, Heat and Mass Transfer
12-17 October, 2003, Antalya, TURKEY

Please NOTE THAT (*) fields are to be filled in.

Personal Information
Title:
*First Name:
*Last Name:
Affiliation:
Postal Address
Address Line 1:
Address Line 2:
City/State:
Postcode:
Country:
 
Telephone:
Fax:
*Email:
I plan to attend the symposium
I plan to submit a paper
Tentative title of paper:
I shall be accompanied by :

I am interested in the possibility of a post-conference tour in Turkey for person(s)

  to Istanbul or to Cappadocia
  (Please indicate one or the other as the tours will be at the same time)
   
  If you have any other request please write
 
   

<% choice1=Request.Form("SENDTHEFORM") choice2=Request.Form("EXIT") If choice1="SEND THE FORM" then title=Request.Form("Title") firstname=Request.Form("Firstname") lastname=Request.Form("Lastname") affiliation=Request.form("Affiliation") address=Request.form("Address") city=Request.form("City") state=Request.form("State") postcode=Request.form("Postcode") country=Request.form("Country") telephone=Request.form("Telephone") fax=Request.form("Fax") email=Request.Form("Email") symposium=Request.form("symposium") paper=Request.form("paper") tentative=Request.form("Tentative") accompany=Request.form("accompany") accompanyname=Request.form("accompanyname") interest=Request.form("interest") person=Request.form("person") tourist=Request.form("tourist") tourcap=Request.form("tourcap") oneri=Request.form("oneri") If firstname<>"" and lastname<>"" and email<>"" 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 THMT-03 feedback form, It was submitted by " & firstname & " " & lastname & " ( " & email & " ) on " & DATE() & "

Title: " & title & "
Name: " & firstname & " " & lastname & "
Affiliation: " & affiliation & "
Postal Address: " & address & " " &city & " " & postcode & " " & state & UCASE(Country) & "

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

[" & symposium & "] I plan to attend the symposium

[" & paper & "] " strHTML = strHTML & "I plan to submit a paper" & "
Tentative title of paper: " & tentative & "

[" & accompany & "] I shall be accompanied by " & accompanyname & "

[" & interest & "] I am interested in the possibility of a post conference in Turkey for [ " & person & " ] person(s) [" & tourist & "] to Istanbul or [" & tourcap & "] to Cappadocia" & "

Other Requests:
" & oneri strHTML = strHTML & "" strHTML = strHTML & "" ' apply the settings to the message With iMsg Set .Configuration = iConf .To = email .From = "ichmt@ichmt.org" .cc = "arinc@ichmt.org" .bcc = "gokmen@ichmt.org" .Subject = "THMT-03 feedback form" .HTMLBody = strHTML .Send End With ' cleanup of variables Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing Else if firstname="" or lastname="" or email="" then Response.Redirect "error.htm" End if End if Response.Redirect "sent.asp?title="&title&"&firstname="&firstname&"&lastname="&lastname&"&affiliation="&affiliation&"&address="&address&"&city="&city&"&state="&state&"&postcode="&postcode&"&country="&country&"&telephone="&telephone&"&fax="&fax&"&email="&email&"&symposium="&symposium&"&paper="&paper&"&tentative="&tentative&"&accompany="&accompany&"&accompanyname="&accompanyname&"&interest="&interest&"&person="&person&"&tourist="&tourist&"&tourcap="&tourcap&"&oneri="&oneri End if If Choice2="EXIT" then Response.Redirect "mainindex.html" End if%>