<%menu_baslik="menubaslik_13.gif"%> <% bos=0 c=request.form("c") ad=request.form("isim") soyad=request.form("soyisim") unvan=request.form("unvan") adres=request.form("adres") telefon=request.form("telefon") dah=request.form("dahili") if dah<>"" then telefon = telefon & " - " & dah cep=request.form("cep") fax=request.form("faks") email=request.form("eposta") kurum=request.form("kurum") ka=request.form("ka") baslik=request.form("baslik") mesaj = Replace(request.form("mesaj"), vbcrlf, "
") diger_yazar_1=request.form("diger_yazar_1") diger_kurum_1=request.form("diger_kurum_1") diger_yazar_2=request.form("diger_yazar_2") diger_kurum_2=request.form("diger_kurum_2") diger_yazar_3=request.form("diger_yazar_3") diger_kurum_3=request.form("diger_kurum_3") diger_yazar_4=request.form("diger_yazar_4") diger_kurum_4=request.form("diger_kurum_4") diger_yazar_5=request.form("diger_yazar_5") diger_kurum_5=request.form("diger_kurum_5") diger_yazar_6=request.form("diger_yazar_6") diger_kurum_6=request.form("diger_kurum_6") 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 email="" then bos=1:response.write "e-posta
" if kurum="" then bos=1:response.write "Kurum
" if mesaj="" then bos=1:response.write "Bildiri Özeti
" if bos=1 then response.write "
ALANLARI BOŞ BIRAKILMIŞ!!!

" response.write "Lütfen Kontrol edip tekrar deneyiniz!!!

"%> Önceki Sayfa<% else b = "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "" b = b & "

Bildiri Sunucusu Bilgileri
İsim Soyisim	Sayın " & c & " " & ad & " " & soyad & "
Ünvan	" & unvan & "
Adres	" & adres & "
Telefon	" & telefon & "
Cep Telefonu	" & cep & "
Faks	" & fax & "
e-posta	" & email & "
Kurum	" & kurum & "
ka	" & ka & "
Diğer Yazarlar
Yazar 1	" & diger_yazar_1 & " - " & diger_kurum_1 & "
Yazar 2	" & diger_yazar_2 & " - " & diger_kurum_2 & "
Yazar 3	" & diger_yazar_3 & " - " & diger_kurum_3 & "
Yazar 4	" & diger_yazar_4 & " - " & diger_kurum_4 & "
Yazar 5	" & diger_yazar_5 & " - " & diger_kurum_5 & "
Yazar 6	" & diger_yazar_6 & " - " & diger_kurum_6 & "
Bildiri Başlığı
" & baslik & "
Bildiri Özeti
" & mesaj & "

" b = Replace(b,"'","´") bodytext = b fromemail = request.form("eposta") Set mailer = Server.CreateObject("CDONTS.NewMail") mailer.to = "moodyist34@gmail.com" mailer.bcc = "nihatayar@gmail.com" mailer.from = fromemail mailer.subject = "www.das.org.tr/2007 Web Sayfasından Yapılan On-Line Bildiri" mailer.body = bodytext mailer.BodyFormat = 0 mailer.MailFormat = 0 mailer.send() response.write "Bildiriniz Başarıyla Gönderilmiştir.

Teşekkür Ederiz.

DAS" end if %>