PRELIMINARY APPLICATION FORM
PTC-03, Short Course on Passive Thermal Control
22-24 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 short course
I shall be accompanied by :
   
  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") accompany=Request.form("accompany") accompanyname=Request.form("accompanyname") 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 PTC-03 feedback form, It was submitted by " & firstname & " " & lastname & " ( " & email & " ) on " & DATE() & "

Title: " & title & vbCrLf & "
Name: " & firstname & " " & lastname & "
Affiliation: " & affiliation & "

Postal Address: " & address & " " & city & " " & postcode &" " & state & vbCrLf & UCASE(Country) & "

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

[" & symposium & "] I plan to attend the short course " strHTML = strHTML & "

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

Other Requests: " & vbCrLf & 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 = "PTC-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&"&accompany="&accompany&"&accompanyname="&accompanyname&"&oneri="&oneri End if If Choice2="EXIT" then Response.Redirect "announce.html" End if%>