|
|
|
bana buradan ulaşabilrsiniz salih_yurtgan@hotmail.com |
|
|
|
|
|
 |
|
Ziyaretşi defteri |
|
|
|
|
|
|
|
|
|
|
|
| Kullanıcı: | 
sessizgop
Kapalı | | Zaman: | 10.01.2009, 23:39 (UTC) | | Mesaj: | SLM KARDESIM SITEN COK HOS BASARILAR BANADA BEKLERIM  |
| İsim: | -  | | Site: | http://ipek-tr-tr.gg | | Zaman: | 15.10.2008, 10:27 (UTC) | | Mesaj: | sitenizde başarılar diler sitemede beklerim |
| İsim: | karamelek | | Site: | http://www.liselikankim.tr.gg | | Zaman: | 21.09.2008, 12:01 (UTC) | | Mesaj: | siten çok güzel olmuş eline emeğine sağlık bana da beklerim. başarılar |
| İsim: | - | | Site: | http://mine42.tr.gg | | Zaman: | 18.09.2008, 20:34 (UTC) | | Mesaj: | siteniz çok güzel
başarılar diler
siteme beklerim |
| İsim: | özkan ipek | | E-mail: | ozkan.ipek hotmail.com | | Site: | http://www.ozkanipek60.tr.gg | | Zaman: | 27.02.2008, 12:09 (UTC) | | Mesaj: | salih siten iyi olmuş am senin kide biraz daha gelişmesi gerek mesela ana sayfayı birazdaha geliştir.tamam hadi sana kolay gelsin iyi günler sdana
|
| İsim: | duran kelbaş | | E-mail: | sebebimsin60hotmail.com | | Site: | - | | Zaman: | 24.02.2008, 16:00 (UTC) | | Mesaj: | slm kardeşim siten güsel ama önemlisi seni buldumya o daha da güsel bence msn ni ekledim inşl denk gelirde görüşürüz hadi allaha emanet ol  |
| İsim: | mustafa | | E-mail: | telekom_ipekhotmail.com | | Site: | http://www.mipek60.tr.gg | | Zaman: | 10.11.2007, 18:30 (UTC) | | Mesaj: | tasarım ayarları var orada gelişmiş ayarlar var oradan sagtarafa radıo gazeteleri koyabilirsin kolaygelsin
|
| İsim: | uğur | | E-mail: | ugur_alkan05hotmail.com | | Site: | http://uguralkan91.sitemynet.com | | Zaman: | 29.10.2007, 11:57 (UTC) | | Mesaj: | kankam siten çok güzel olmuş aynısı yapıcam kıskandaım:) |
| İsim: | site editörü | | E-mail: | h.bekelhotmail.com | | Site: | - | | Zaman: | 28.10.2007, 19:58 (UTC) | | Mesaj: | deneme |
|
|
|
|
|
|
|
|
|
|
|
| |
<%
'dosya isimi..gonder_email.asp **
'Farkli formlar dan gelen bilgilerin farkli email adresine
'gelmesini sagliyor. formdan gelen formtercihi degerine göre
'ilgili Case içine girer . Case leri ve email tercihlerini
'çogaltmak mümkün
dim FormTercihi, strTo, strSubject, strBody
'formdan gelen deger alinir
FormTercihi=Request("HangiForm" )
Select Case FormTercihi
'alinan deger select içine alinir.
Case 1
'formdan gelen bilgiler alinir
adi="ADI SOYADI.." &Request.Form("ADI" )+"," & Request.Form("SOYADI" )+"," & vbCrLf
adi=adi&"ADRES......." &Request.Form("ADRES" )+"," & vbCrLf&"ILCE/IL....." &Request.Form("IL" )+"," & vbCrLf
adi=adi&"E-MAIL......" &Request.Form("EMAIL" )& vbCrLf& vbCrLf& vbCrLf
kimden=Request.Form("ADI" )+" " +Request.Form("SOYADI" )
'asagidaki kisim olmasada olur biz resmi bir kurum oldugumuz için mail olayini dilekçe boyutuna çevirdik.
dilekce="Yukarida Bilgilerini Yazdigim Parsele Ait " & vbCrLf
dilekce=dilekce&"IMAR DURUMU Belgesinin Tarafima Gönderilmesini " & vbCrLf
dilekce=dilekce&" Saygilarimla Arz Ederim." & vbCrLf& vbCrLf
dilekce=dilekce& kimden
adi=adi&dilekce
'kisi formu gönderdikten sonra asagidaki mesaji okur
bilgilendirme=" Adresimize Gönderdiginiz Bilgilere Göre" & vbCrLf
bilgilendirme=bilgilendirme+"Verdiginiz " &EMAIL&" Adresine Imar Durumu Belgesi En Kisa Zamanda Gönderilecektir. "
'bu Case 1 deki formun konusudur
strSubject = "IMAR DURUMU ISTEGI"
email=Request.Form("EMAIL" )
Case 2
adi="ADI SOYADI.." &Request.Form("ADI" )+"," & Request.Form("SOYADI" )+"," & vbCrLf
adi=adi&"ISTEK/ÖNERI;......." &vbCrLf&Request.Form("ADRES" )+"," & vbCrLf
adi=adi&"E-MAIL......" &Request.Form("EMAIL" )& vbCrLf& vbCrLf& vbCrLf
kimden=Request.Form("ADI" )+" " +Request.Form("SOYADI" )
dilekce=dilekce& kimden
adi=adi&dilekce
bilgilendirme=" Öneri ve İsteklerinizi Bizimle Paylaştığınız İçin Teşekkür Ederiz." & vbCrLf
strSubject = "ONERI/ISTEK"
email=Request.Form("EMAIL" )
End Select
%>
<%
strTo = "MAIL ADRES1-1"
'adresi degistir....
strBody = adi
strBody = strBody & vbCrLf & vbCrLf
If Len(request("email" ))<5 or InStr(request("email" ),"@" )=0 Then
%>
Lütfen E-MAIL Adres Bilgilerini Dogru Olarak Giriniz
<%
Else
'Persits.mail ile baglanti saglanir.
Set Mail = Server.CreateObject("Persits.MailSender" )
'site adini degistir.
Mail.Host="yildirim-bld.gov.tr"
'bunlari degistirmeyin
Mail.From = email
Mail.FromName = kimden
Response.Write "from name"
'asagida bir Select Case daha kullanilmistir. her formun konusuna göre mailin gidecegi adreslerdir.
Select Case FormTercihi
Case 1
Mail.AddAddress "MAIL ADRESI-1"
Mail.AddAddress "MAIL ADRESI-2"
Case 2
Mail.AddAddress "MAIL ADRESI-1"
Mail.AddAddress "MAIL ADRESI-3"
End Select
'bunlarida degistirmeyin
Mail.Subject = strSubject
Mail.Body = strBody
Mail.SEnd
Response.Write bilgilendirme
End If
%>
<%
Function IsValidEmail(strEmail)
Dim bIsValid
bIsValid = True
If Len(strEmail) < 5 Then
bIsValid = False
Else
If InStr(1, strEmail, " " ) <> 0 Then
bIsValid = False
Else
If InStr(1, strEmail, "@" , 1) < 2 Then
bIsValid = False
Else
If InStrRev(strEmail, "." ) < InStr(1, strEmail, "@" , 1) + 2 Then
bIsValid = False
End If
End If
End If
End If
IsValidEmail = bIsValid
End Function
'<-- bitti -->
%>
esproit
www.esproit.com
|
|
|
|
|
|
|
|
SaLiH yUrTgAn |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Bugün 4 ziyaretçi (6 klik) kişi burdaydı! |
hotmail.com
