| Konuyu görüntüle |
| Yazar |
|
muratgokcek
Kayıt: 02.09.2006 |
|
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta http-equiv="Content-Language" content="tr">
<title>Çimenyenice Köyü Sosyal Yardımlaşma ve Dayanışma Derneği:::::İLETİŞİM</title>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" bgcolor="#FFFFFF">
<%
'-ASPPLUSdotNet www.ASPPLUS.net 2006
'- KelebekASP Webmesaj Formu III - Persits -----------------------------------------------------------------------------------
ASPPLUSdotNet_msg=REQUEST("ASPPLUSdotNet_msg")
email=REQUEST("email")
If Request ("ASPPLUSdotNet") = "Yolla" Then
CALL Webmail
Else
End if
'--------------------------------------------------------------------------
SUB Webmail
'- SessionID Kontrol: -------------------------------------------------------------------------------------------
sid=Trim(Request("sid"))
IF sid <> Session.SessionID THEN
Response.Write "<center><font face=""Tahoma"" size=""2""># Uyarı : SessionID Değeri Geçersiz !</center>"
Response.Write "<center>--------------------------------------------------------------------------------</center>"
Response.Write "<center><font face=""Tahoma"" size=""2"">Sayfayı Kapatıp - Açıp Tekrar Deneyin !</center>"
Response.End
END IF
'-----------------------------------------------------------------------------------------------------------------------------
If REQUEST("adsoyad")="" or len(REQUEST("adsoyad"))<3 or len(REQUEST("adsoyad"))>50 Then
ASPPLUSdotNet_msg= "UYARI: Ad Soyad Alanı Boş Bıraktınız ! ( En Az 3, En Çok 50 Karakter )"
Else
'--------------------------------------------------------------------------
If Len(email) < 5 Then
bIsValid = "False"
Else
If Instr(1, email, " ") <> 0 Then
bIsValid = "False"
Else
If InStr(1, email, "@", 1) < 2 Then
bIsValid = "False"
Else
If InStrRev(email, ".") < InStr(1, email, "@", 1) + 2 Then
bIsValid = "False"
End If
End If
End If
End If
IF bIsValid = "False" THEN
ASPPLUSdotNet_msg= "UYARI: Lütfen Geçerli Bir E-Mail Adresi Girin !"
Else
'--------------------------------------------------------------------------
If not REQUEST("telefon")="" and not IsNumeric(REQUEST("telefon")) Then
kelebek_msg= "UYARI: Telefon Alanına Sadece Rakam Girilebilir !"
Else
'--------------------------------------------------------------------------
If REQUEST("mesaj_mail")="" or len(REQUEST("mesaj_mail"))<3 or len(REQUEST("mesaj_mail"))>2000 Then
ASPPLUSdotNet_msg= "UYARI: Mesaj Alanı Boş Bıraktınız ! ( En Az 3, En Çok 2000 Karekter )"
Else
ip = Request.ServerVariables("REMOTE_ADDR")
Dim objMailASPPLUSdotNet, MyBody, strMailServer
Set objMailASPPLUSdotNet = Server.CreateObject("Persits.MailSender")
objMailASPPLUSdotNet.Host = "mail.ttnet.net.tr" 'Buraya mail server adresinizi yazın !
objMailASPPLUSdotNet.Username = "murat_gokcek@ttnet.net.tr" 'Buraya kullandığınız servera ait email adresini yazın!
objMailASPPLUSdotNet.Password = "******" 'Buraya email parolanızı yazın!
objMailASPPLUSdotNet.From = REQUEST("email")
objMailASPPLUSdotNet.AddAddress "murat_gokcek@ttnet.net.tr" 'Buraya mail server adresinizi yazın !
objMailASPPLUSdotNet.Charset = "iso-8859-9"
objMailASPPLUSdotNet.Subject = "Webmail"
MyBody = " Webmail İletişim Formu" & vbCrLf
MyBody = MyBody & "----------------------------------------------------------" & vbCrLf
MyBody = MyBody & " # Mesaj: " & Request("mesaj_mail") & vbCrLf
MyBody = MyBody & "----------------------------------------------------------" & vbCrLf
MyBody = MyBody & " # Ad Soyad: " & Request("adsoyad") & vbCrLf
MyBody = MyBody & " # E-Posta: " & Request("email") & vbCrLf
MyBody = MyBody & " # Şehir: " & Request("sehir") & vbCrLf
MyBody = MyBody & " # Telefon: " & Request("telefon") & vbCrLf
MyBody = MyBody & " # Ip No: " & ip & vbCrLf
MyBody = MyBody & "----------------------------------------------------------" & vbCrLf
MyBody = MyBody & " Powered by KRASiT | www.ASPPLUS.net ©2006 " & vbCrLf
objMailASPPLUSdotNet.Body = MyBody
On Error Resume Next
objMailASPPLUSdotNet.Send
ASPPLUSdotNet_msg= "<b>Teşekkürler, Mesajınız Başarıyla Gönderildi...En Kısa Zamanda Size Ulaşacağız...</b>"
Session("ASPPLUSdotNet_Guvenlik")=TRUE
'-----------------------------------------------------------------------------------------------------------------------------
End If
End If
End If
End If
'-----------------------------------------------------------------------------------------------------------------------------
End SUB
%>
<div align="center">
<center>
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber1" height="100%">
<tr>
<td width="100%" align="center">
<form method="POST" action="webmail_persits.asp?go2=iletisim&sid=<%=Session.SessionID%>&ASPPLUSdotNet=Yolla" target="_self">
<fieldset style="border:3px groove #336699; padding:10px">
<legend align="center"> <b>
<font color="#000000" face="Arial Unicode MS" size="2">İletişim / İstek Formu</font></b> </legend>
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber2" width="468">
<tr>
<td align="right" width="125">
<b>
<font face="Arial Unicode MS" style="font-size: 11px">Adınız Soyadınız :</font></b></td>
<td align="left" width="331">
<input type="text" name="adsoyad" size="30" tabindex="1" style="font-family: Arial Unicode MS; color: #000000; font-size: 10pt; border: 1px solid #C0C0C0" value="<%=REQUEST("adsoyad")%>">
*</td>
</tr>
<tr>
<td align="right" width="125">
<b>
<font face="Arial Unicode MS" style="font-size: 11px">E-Posta Adresiniz :</font></b></td>
<td align="left" width="331">
<input type="text" name="email" size="30" tabindex="2" style="font-family: Arial Unicode MS; color: #000000; font-size: 10pt; border: 1px solid #C0C0C0" value="<%=REQUEST("email")%>">
*</td>
</tr>
<tr>
<td align="right" width="125">
<b>
<font face="Arial Unicode MS" style="font-size: 11px">Şehir :</font></b></td>
<td align="left" width="331">
<SELECT size=1 name=sehir tabindex="3" style="font-family: Arial Unicode MS; color: #000000; font-size: 10pt; border: 1px solid #000000">
<option selected value="Belirtilmemiş">Seçiniz...</option>
<OPTION
value="İstanbul">İstanbul<OPTION value="Ankara">Ankara<OPTION
value="İzmir">İzmir<OPTION value="Adana">Adana<OPTION
value="Adıyaman">Adıyaman<OPTION value="Afyon">Afyon<OPTION
value="Ağrı">Ağrı<OPTION value="Aksaray">Aksaray<OPTION
value="Amasya">Amasya<OPTION value="Antalya">Antalya<OPTION
value="Ardahan">Ardahan<OPTION value="Artvin">Artvin<OPTION
value="Aydın">Aydın<OPTION value="Balıkesir">Balıkesir<OPTION
value="Bartın">Bartın<OPTION value="Batman">Batman<OPTION
value="Bayburt">Bayburt<OPTION value="Bilecik">Bilecik
<OPTION
value="Bingöl">Bingöl<OPTION value="Bitlis">Bitlis<OPTION
value="Bolu">Bolu<OPTION value="Burdur">Burdur<OPTION
value="Bursa">Bursa<OPTION value="Çanakkale">Çanakkale<OPTION
value="Çankırı">Çankırı<OPTION value="Çorum">Çorum<OPTION
value="Denizli">Denizli<OPTION value="Diyarbakır">Diyarbakır<OPTION
value="Edirne">Edirne<OPTION value="Elazığ">Elazığ<OPTION
value="Erzincan">Erzincan<OPTION value="Erzurum">Erzurum<OPTION
value="Eskişehir">Eskişehir<OPTION value="Gaziantep">Gaziantep<OPTION
value="Giresun">Giresun<OPTION value="Gümüşhane">Gümüşhane<OPTION
value="Hakkari">Hakkari<OPTION value="Hatay">Hatay<OPTION
value="Iğdır">Iğdır<OPTION value="Isparta">Isparta<OPTION
value="İçel">İçel<OPTION value="K.Maraş">K.Maraş<OPTION
value="Karabük">Karabük<OPTION value="Karaman">Karaman<OPTION
value="Kars">Kars<OPTION value="Kastamonu">Kastamonu<OPTION
value="Kayseri">Kayseri<OPTION value="Kırıkkale">Kırıkkale<OPTION
value="Kırklareli">Kırklareli<OPTION value="Kırşehir">Kırşehir<OPTION
value="Kilis">Kilis<OPTION value="Kocaeli">Kocaeli<OPTION
value="Konya">Konya<OPTION value="Kütahya">Kütahya<OPTION
value="Malatya">Malatya<OPTION value="Manisa">Manisa<OPTION
value="Mardin">Mardin<OPTION value="Muğla">Muğla<OPTION
value="Muş">Muş<OPTION value="Nevşehir">Nevşehir<OPTION
value="Niğde">Niğde<OPTION value="Ordu">Ordu<OPTION
value="Osmaniye">Osmaniye<OPTION value="Rize">Rize<OPTION
value="Sakarya">Sakarya<OPTION value="Samsun">Samsun<OPTION
value="Siirt">Siirt<OPTION value="Sinop">Sinop<OPTION
value="Sivas">Sivas<OPTION value="Şanlıurfa">Şanlıurfa<OPTION
value="Şırnak">Şırnak<OPTION value="Tekirdağ">Tekirdağ<OPTION
value="Tokat">Tokat<OPTION value="Trabzon">Trabzon<OPTION
value="Tunceli">Tunceli<OPTION value="Uşak">Uşak<OPTION
value="Van">Van<OPTION value="Yalova">Yalova<OPTION
value="Yozgat">Yozgat<OPTION value="Zonguldak">Zonguldak
<OPTION value="Diğer">Diğer</OPTION>
<option value="Yurtdışı">Yurtdışı</option>
</SELECT></td>
</tr>
<tr>
<td align="right" width="125">
<b>
<font face="Arial Unicode MS" style="font-size: 11px">Telefon No :</font></b></td>
<td align="left" width="331">
<input type="text" name="telefon" size="15" tabindex="4" style="font-family: Arial Unicode MS; color: #000000; font-size: 10pt; border: 1px solid #C0C0C0" value="<%=REQUEST("telefon")%>"></td>
</tr>
<tr>
<td align="right" width="125" valign="top">
<b>
<font face="Arial Unicode MS" style="font-size: 11px">Mesajınız :</font></b></td>
<td align="left" width="331" valign="top">
<textarea rows="9" name="mesaj_mail" cols="49" tabindex="5" style="font-family: Arial Unicode MS; color: #000000; font-size: 10pt; border: 1px solid #C0C0C0; font-style:italic"></textarea>
*</td>
</tr>
<tr>
<td align="center" width="462" colspan="2">
<font face="Arial Unicode MS" style="font-size: 11px; font-weight:700" color="#FF0000"> <%=ASPPLUSdotNet_msg%></font></td>
</tr>
</table>
</fieldset><br>
<input type="submit" value="Gönder" style="font-family: Tahoma; color: #000000; font-size: 8pt; width:35%" tabindex="6" <% If Session("ASPPLUSdotNet_Guvenlik")=FALSE Then %><%Response.write "Disabled"%><%End If %> onClick="javascript:this.disabled=disabled;return true;"></form>
<p><font color="#808080" face="Verdana" size="1">( * ) İşaretli Alanların Doldurulması Zorunludur.</font><p> </td>
</tr>
</table>
</center>
</div>
</body>
</html>
Arkadaşlar yukarıda Persits kullanalarak site üzerinden ziyaretçilerden email almak için hazırlanan kodlar var..Dün bayağı bir uğraştıktan sonra mail göndermeyi başardım ama daha sonra tekrar denediğimde mail ulaşamadı....Yukarıdaki kodlarda bir yanlışlık mı var acaba?Teşekkürler...
Ahirette haklilar kuvvetlidir.Dünyada ise kuvvetliler haklidir.
|
|
|
|
|
-
 Del.icio.us
-
 Digg
-
 Facebook
-
 Furl
-
 Google
-
 Blink
-
 Simpy
-
 Spurl
-
 Y! MyWeb
|
|
|
