<%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 "İsim
" if soyad="" then bos=1:response.write "Soyisim
" if unvan="" then bos=1:response.write "Ünvan
" if adres="" then bos=1:response.write "Adres
" if telefon="" then bos=1:response.write "Telefon
" if fax="" then bos=1:response.write "Faks
" if email="" then bos=1:response.write "e-posta
" if kurum="" then bos=1:response.write "Kurum
" %><% if bos=1 then response.write "
ALANLARI BO? BIRAKILMI?!!!!
" response.write "Lütfen Kontrol edip tekrar deneyiniz!!!!

"%> « Önceki Sayfa<% else b = "DAS KONGRE 2007 GORUS VE ONERI- TURKCE" & 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 = "moodyist34@gmail.com" mailer.from = fromemail mailer.subject = "DAS 2007 Kongre Önerisi- Türkçe" mailer.body = bodytext mailer.send() response.write "Öneriniz Alınmıştır.

Teşekkür ederiz.

***" end if %>