 |
|
|
|
|
<%
adsoyad = request.form("adsoyad")
gorev = request.form("gorev")
eposta = request.form("eposta")
adres = Replace(request.form("adres"), vbcrlf, "
")
telefon = request.form("telefon")
bos = false
if eposta = "" then bos = true
if adsoyad = "" then bos = true
if gorev = "" then bos = true
if eposta = "" then bos = true
if adres = "" then bos = true
if telefon = "" then bos = true
if bos = true then
%>
Bilgilerin bir kısmı ya da tümü eksik.
Lütfen kontrol edip bir kez daha deneyiniz.
DAS
<%
else
oneri = Replace(request.form("oneri"), vbcrlf, "
")
oneri = Replace(oneri, chr(34), "'")
b = ""
b = b & ""
b = b & ""
b = b & "| Ankete katılan(lar)ın | "
b = b & "| Adı Soyadı | " & adsoyad & " | "
b = b & "| Görevi | " & gorev & " | "
b = b & "| e-posta | " & eposta & " | "
b = b & "| Adres | " & adres & " | "
b = b & "| Telefon | " & telefon & " | "
b = b & "| | "
b = b & "| Cevaplar | "
for i=1 to 48
cevapString = "_" & cstr(i)
cevap = request.form(cevapString)
diger = request.form("diger" & cstr(i))
diger_harf = request.form("diger_harf" & cstr(i))
if cevap = "Diger" then
b = b & "| Soru " & cstr(i) & " | " & diger_harf & ". Diğer : " & diger & " | "
else
b = b & "| Soru " & cstr(i) & " | " & cevap & " " & diger & " | "
end if
next
b = b & "| | "
b = b & "| Düşünceler | "
b = b & "| " & oneri & " | "
b = b & " "
b = b & ""
b = Replace(b, "'", "´")
Set mailer = Server.CreateObject("CDONTS.NewMail")
mailer.to = "moodyist34@gmail.com"
mailer.from = eposta
mailer.subject = "Merkezi Sterilizasyon Ünitesi İşleyişi ile ilgili Anket Çalışması"
mailer.body = b
mailer.BodyFormat = 0
mailer.MailFormat = 0
mailer.send()
%>
Anketiniz Başarıyla Gönderilmiştir.
Teşekkür Ederiz.
DAS
<%
end if
%>
|
|
