<% mes = "" IsSuccess = false sTo = "info@mavibulut.net; sevinc.mutlu@mavibulut.net" sFrom = "info@mavibulut.net" sSubject = Trim(Request.Form("txtName")) + " ders vermek istiyor!" sName = Trim(Request.Form("txtName")) sTel = Trim(Request.Form("txtTelefon")) sDers = Trim(Request.Form("txtDers")) sSemt = Trim(Request.Form("txtSemt")) sMail = Trim(Request.Form("txtMail")) sOkul = Trim(Request.Form("txtOkul")) sZaman= Trim(Request.Form("txtZaman")) sMailServer = "127.0.0.1" sBody = Trim(Request.Form("txtBody")) if Request("__action")="EmailGonder" then EmailGonder() end if Sub EmailGonder() Set objMail = Server.CreateObject("CDO.Message") Set objConf = Server.CreateObject("CDO.Configuration") Set objFields = objConf.Fields With objFields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With With objMail Set .Configuration = objConf .From = sFrom .To = sTo .Subject = sSubject .HTMLBody = ""+"Ad
" + sName + " Telefon:
" + sTel + " Dersler :
" + sDers + " Semt :
" + sSemt + " E-mail :
" + sMail + " Okul :
" + sOkul + " Tecrübe:
" + sZaman + " Mesaj :
" + sBody +"" End With Err.Clear on error resume next objMail.Send if len(Err.Description) = 0 then mes = " Mesajınız iletilmiştir. İlginiz için teşekkürler. Sizinle en kısa zamanda telefon ya da e-mail yoluyla irtibat kuracağım. " IsSuccess = true else mes = " " + Err.Description + " Mesajınız bir hatadan dolayı gönderilememiştir. Lütfen tekrar deneyiniz ya da 0 533 733 39 61 nolu telefondan bana ulaşabilirsiniz. Diğer iletişim bilgilerini iletişim sayfasında öğrenebilirsiniz. İlginiz için teşekkürler." end if Set objFields = Nothing Set objConf = Nothing Set objMail = Nothing End sub Sub Alert(html) if IsSuccess then Response.Redirect "gonderimbasarili.asp" else Response.Redirect "gonderimbasarisiz.asp" end if End Sub %> Özel Ders Vermek İsteyenler : Tecrübeli Bogaziçili'lerden ÖSS LGS OKS Matematik, Fizik
özel ders

mavibulut özel ders

İstanbul için; Boğaziçili, özel ders tecrübesi olan 2./3./4. sınıf öğrencileri ya da mezunlar başvurabilir.

Ankara için ODTÜ,

Bursa için Uludağ Üniversitesi,

İzmir için Ege ve Dokuz Eylül Üniversiteleri öğrencileri başvurabilir.

Başvuru Formu

<% if len(mes) > 0 then Alert(mes) end if %>
(örneğin öğrencinin ders durumu [önceki notları], almak istediğiniz haftalık ders saati ile ilgili bilgi verebilirsiniz.)

 

 



© 2006 Mavibulut | İletişim | Site Haritası | Öğretmenler | Başarı Hikayeleri | Japonya| Web Tasarım
özel ders

Bağlantılar : google reklam | diş beyazlatma | implant | ağız ve diş sağlığı | diş hekimi |da vinci porselenleri | ortodonti