<% if Session("uye")="" then Response.Write("Üye olmak istiyorum") Else Response.Write("" & Session("uye") & "") End if %> <% if Session("uye")="" then Response.Write("Üye girişi") Else Response.Write("Çıkış") End If%>   <%=Date%>  
      
ANASAYFA          HAKKIMIZDA         HABERLER         SANAL TUR          KARİYER          İLETİŞİM          SSS          SİTE HARİTASI














TAVSİYE ET
<% tsqlANASAYFA = "SELECT * FROM TBL_STANDARTICERIK WHERE sayfaID=15" Set VeriGetirRS = Server.CreateObject("ADODB.RecordSet") VeriGetirRS.Open tsqlANASAYFA,DataConn,1,1 VeriGetirRS.MoveFirst Icerik = VeriGetirRS("icerik") VeriGetirRS.Close Set VeriGetirRS = Nothing Response.Write(Icerik) %> <% hfISLEM = Request("hfISLEM") if CStr(hfISLEM)="Gonder" then txtADSOYAD = Request("txtADSOYAD") txtTEADSOYAD = Request("txtTEADSOYAD") txtTEEMAIL = Request("txtTEEMAIL") Set Mail = Server.CreateObject("CDONTS.Newmail") Mail.To = txtTEEMAIL Mail.Subject = "Tavsiye İletisi" Mail.From = "bilgi@mayaklinik.com" GidecekBilgi = "Tavsiye İletisi" & vbcrlf & vbcrlf GidecekBilgi = GidecekBilgi & "Sayın " & txtTEADSOYAD & "," & vbcrlf & vbcrlf GidecekBilgi = GidecekBilgi & txtADSOYAD & " size bu iletiyi sitemiz üzerinden göndererek sitemizi ziyaret etmeniz için tavsiyede bulunmuştur. İleti size ait değilse vermiş olduğumuz rahatsızlıktan dolayı özür dileriz. " & vbcrlf & vbcrlf GidecekBilgi = GidecekBilgi & "Site adresimiz:" & vbcrlf GidecekBilgi = GidecekBilgi & "www.mayaklinik.com" Mail.Body = GidecekBilgi On Error Resume Next Mail.Send Set Mail = Nothing If Err <> 0 Then sonuc= "Gönderirken hata oluştu.Hata Kodu: " & Err.Description Else sonuc="Tavsiye iletiniz gönderilmiştir. Teşekkür ederiz." End If End If %>

Adınız Soyadınız :

Tavsiye Edilenin Adı Soyadı :

Tavsiye Edilenin E-Mail Adresi :

<%=sonuc%>

Gizlilik ve Güvenlik              Yasal Kullanım             Tavsiye Et              Internete Giriş Sayfası Yap              Sık Kullanılanlara Ekle              Geri              İleri
© MAYAKLİNİK SAĞLIK HİZMETLERİ LTD.ŞTİ.