<%menu_baslik="menubaslik_10.gif"%> <% bos=0 ad=request.form("isim") soyad=request.form("soyisim") unvan=request.form("unvan") adres=request.form("adres") telefon=request.form("telefon") dah=request.form("dahili") cep=request.form("cep") fax=request.form("faks") email=request.form("eposta") kurum=request.form("kurum") ka=request.form("ka") mesaj=request.form("mesaj") %><% if ad="" then bos=1:response.write "Name
" if soyad="" then bos=1:response.write "Surname
" if unvan="" then bos=1:response.write "Title
" if adres="" then bos=1:response.write "Adress
" if telefon="" then bos=1:response.write "Phone
" if fax="" then bos=1:response.write "Fax
" if email="" then bos=1:response.write "E-mail
" if kurum="" then bos=1:response.write "Institution
" %><% if bos=1 then response.write "
SOME FIELDS EMPTY!!!
" response.write "PLEASE CHECK FIELDS, AND TRY AGAIN!!!

"%> Previus Page<% else b = "DAS KONGRE 2007 GORUS VE ONERI- INGILIZCE" & vbcrlf b = b & "----------------------------------------------------" & vbcrlf b = b & "İsim Soyisim" & vbTab & ad & " " & soyad & vbcrlf b = b & "Ünvan" & vbTab & vbTab & unvan & vbcrlf b = b & "Adres" & vbTab & vbTab & adres & vbcrlf b = b & "Telefon" & vbTab & vbTab & telefon if dah<>"" then b = b & " - " & dah b = b & vbcrlf b = b & "Cep Telefonu" & vbTab & cep & vbcrlf b = b & "Faks" & vbTab & vbTab & fax & vbcrlf b = b & "e-posta" & vbTab & vbTab & email & vbcrlf b = b & "Kurum" & vbTab & vbTab & kurum & vbcrlf b = b & vbTab & vbTab & ka & vbcrlf b = b & "----------------------------------------------------" & vbcrlf b = b & mesaj & vbcrlf b = b & "----------------------------------------------------" & vbcrlf bodytext=b fromemail = request.form("eposta") Set mailer = Server.CreateObject("CDONTS.NewMail") mailer.to = "muratomu@omu.edu.tr" mailer.cc = "DILEKZ@amerikanhastanesi.com.tr" mailer.from = fromemail mailer.subject = "DAS 2007 Kongre Sayfasından Öneri- İngilizce" mailer.body = bodytext mailer.send() response.write "Your form ACCEPTED.

Thank You.

***" end if %>