<% @Language="VBScript" CodePage="1254" %>
<% Server.ScriptTimeOut=300 %>
<% Response.Buffer = TRUE %>
<%
'- ASPPLUS.Net Webmesaj Formu -------------------------------------------------
ASPPLUS_msg=REQUEST("ASPPLUS_msg")
email=REQUEST("email")
konu=REQUEST("konu")
If Request ("ASPPLUSASP") = "Yolla" Then
CALL Webmail
Else
End if
'------------------------------------------------------------------------------
SUB Webmail

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")) or len(REQUEST("adsoyad"))>50 Then
ASPPLUS_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
ASPPLUS_msg= "UYARI: Lütfen Geçerli Bir E-Mail Adresi Girin !"
Else
'--------------------------------------------------------------------------
If not REQUEST("telefon")="" and not IsNumeric(REQUEST("telefon")) Then
ASPPLUS_msg= "UYARI: Telefon Alanına Sadece Rakam Girilebilir !"
Else
'--------------------------------------------------------------------------
If REQUEST("mesaj_mail")="" or len(REQUEST("mesaj_mail")) or len(REQUEST("mesaj_mail"))>3000 Then
ASPPLUS_msg= "UYARI: Mesaj Alanı Boş Bıraktınız ! ( En Az 3, En Çok 3000 Karekter )"
Else
'--------------------------------------------------------------------------
If Session("ASPPLUSGuvenlik")=TRUE Then
ASPPLUS_msg= "UYARI: ASPPLUS Webmail Flood Koruma !"
Else
'-----------------------------------------------------------------------------------------------------------------------------
ip = Request.ServerVariables("REMOTE_ADDR")
'-----------------------------------------------------------------------------------------------------------------------------
ASPPLUS_MyBody = " Webmail İletişi Formu" & vbCrLf
ASPPLUS_MyBody = " Konu: "&konu & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & "----------------------------------------------------------" & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & " # Mesaj: " & Request("mesaj_mail") & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & "----------------------------------------------------------" & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & " # Ad Soyad: " & Request("adsoyad") & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & " # E-Posta: " & Request("email") & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & " # Şehir: " & Request("sehir") & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & " # Telefon: " & Request("telefon") & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & "----------------------------------------------------------" & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & " # IP: " & ip & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & "----------------------------------------------------------" & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & "ONR WebSistemleri - www.onrbilisim.com" & vbCrLf
'-----------------------------------------------------------------------------------------------------------------------------
Const cdoSendUsingMethod = _
"http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = _
"http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = _
"http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout = _
"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate = _
"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic = 1
Const cdoSendUserName = _
"http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword = _
"http://schemas.microsoft.com/cdo/configuration/sendpassword"
Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields

Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail.???????.com" '-Mail server adresiniz ! ///////////////////////////////////
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "bilgi@???????.com" '-Mail kullanıcı adınız ! ///////////////////////////////////
.Item(cdoSendPassword) = "?????????" '-Mail parolanız ! //////////////////////////////////////////

.Update
End With
'-----------------------------------------------------------------------------------------------------------------------------
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
.To = "bilgi@????????.com" '-Serverınıza ait e-mail adresi (ÖNEMLİ) ! ///////////////////////////////////
.From = email
.Subject = konu
.TextBody = ASPPLUS_MyBody
.Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
'-----------------------------------------------------------------------------------------------------------------------------
ASPPLUS_msg= "<b>Teşekkürler, Mesajınız Başarıyla Gönderilmiştir.</b>"
Session("ASPPLUSGuvenlik")=TRUE
Set objMailASPPLUS = Nothing
'-----------------------------------------------------------------------------------------------------------------------------
End If
End If
End If
End If
End If
'-----------------------------------------------------------------------------------------------------------------------------
End SUB
%>


<html>
<head>
<meta http-equiv="Content-Language" content="tr">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>ONR Web Hizmetleri .:: WEB MAİL SERVİSİ ::.</title>
<link rel="stylesheet" type="text/css" href="webmail_stilsyf.css">
<script>
function stoperror(){
return true
}
window.onerror=stoperror
</script>
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function textCounter(field, countfield, maxlimit) {
if (field.value.length > maxlimit) // if too long...trim it!
field.value = field.value.substring(0, maxlimit);
// otherwise, update 'characters left' counter
else
countfield.value = maxlimit - field.value.length;
}
// End -->
</script>
</head>

<body>

<div align="center" style="width: 291; height: 322">
<center>
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="27" id="AutoNumber1">
<tr>
<td width="500" align="center">
<form method="POST" action="default.asp?sid=<%=Session.SessionID%>&ASP PLUSASP=Yolla" target="_self">
<fieldset style="border:2px solid #008080; padding:5px; width:300; height:271">
<legend align="left"><img border="0" src="emailfoto.gif" align="absmiddle"> <b>
<font color="#A5C24F">&nbsp;</font><font color="#800080">İLETİŞİM FORMU</font></b>&nbsp;</legend>&nbsp;
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber2" width="279">
<tr>
<td align="right" width="128"><font color="#2985B6"><b>Adınız Soyadınız :</b></font></td>
<td align="left" width="141">
<input type="text" name="adsoyad" size="22" tabindex="1" style="font-family: Verdana; color: #000000; font-size: 8pt; border: 1px solid #808080; "> </td>
</tr>
<tr>
<td align="right" width="128"><font color="#2985B6"><b>E-Posta :</b></font></td>
<td align="left" width="141">
<input type="text" name="email" size="22" tabindex="2" style="font-family: Verdana; color: #000000; font-size: 8pt; border: 1px solid #808080; "> </td>
</tr>
<tr>
<td align="right" width="128"><font color="#2985B6"><b>Şehir :</b></font></td>
<td align="left" width="141">
<SELECT size=1 name=sehir tabindex="3" style="font-family: Verdana; color: #000000; font-size: 8pt; border: 1px solid #A5C24F; ; ">
<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="128"><font color="#2985B6"><b>Telefon No :</b></font></td>
<td align="left" width="141">
<input type="text" name="telefon" size="22" tabindex="4" style="font-family: Verdana; color: #000000; font-size: 8pt; border: 1px solid #808080; " maxlength="11"> </td>
</tr>
<tr>
<td align="right" width="128" valign="top"><font color="#2985B6"><b>
Konu :</b></font></td>
<td align="left" width="141" valign="top">
<select size="1" name="konu" style="border:1px solid #A5C24F; font-family: Tahoma; font-size: 8pt; ">
<option selected value="Genel">Genel</option>
<option value="Bilgi Talebi">Bilgi Talebi</option>
<option value="Teknik Destek">Teknik Destek</option>
<option value="Sipariş Bildirimi">Sipariş Bildirimi</option>
</select> </td>
</tr>
<tr>
<td align="right" width="128" valign="top"><font color="#2985B6"><b>Mesajınız :</b></font></td>
<td align="left" width="141" valign="top">
<textarea rows="9" name="mesaj_mail" onKeyDown="textCounter(this.form.mesaj_mail,this.f orm.remLen,3000);" onKeyUp="textCounter(this.form.mesaj_mail,this.for m.remLen,3000);" cols="21" tabindex="5" style="font-family: Verdana; color: #000000; font-size: 8pt; border: 1px solid #808080; "></textarea></td>
</tr>
<tr>
<td align="right" width="128"><font color="#C0C0C0"><b>Karakter Sayısı :</b></font></td>
<td align="left" width="141"><font size="1" face="arial, helvetica, sans-serif">
<input name=remLen size=27 maxlength=3 value="3000" style="font-family: Tahoma; font-size: 8pt; color: #C0C0C0; border: 1px solid #FFFFFF"></font></td>
</tr>
</table>
</fieldset><br>
<font color="#2985B6">
<input type="submit" value="Gönder" style="border:1px solid #2985B6; font-family: Tahoma; font-size: 8pt; width:35%; font-weight:bold" tabindex="6" <% If Session("ASPPLUSGuvenlik")=TRUE Then %><%Response.write "Disabled"%><%End If %> onClick="javascript:this.disabled=disabled;return true;"></font></form>
</td>
</tr>
</table>
</center>
<SCRIPT language=javascript>
//No Right Click Script
function NSclick(e) {
if (navigator.appName=="Netscape" && parseInt(navigator.appVersion)==4) {
if (e.which == 3) {
return false;
}
}
if (navigator.appName=="Netscape" && parseInt(navigator.appVersion)>=5) {
if (e.button == 2 || e.button == 3) {
e.preventDefault();
return false;
}
}
}
if (navigator.appName=="Netscape" && parseInt(navigator.appVersion)==4) {
document.onmousedown=NSclick;
document.captureEvents(Event.MOUSEDOWN);
}
if (navigator.appName=="Netscape" && parseInt(navigator.appVersion)>=5) {
document.onmouseup=NSclick;
}
if (navigator.appName=="Microsoft Internet Explorer") {
document.oncontextmenu = new Function("return false;")
}
//nots
function disableselect(e){
return false
}
function reEnable(){
return true
}
//if IE4+
document.onselectstart=new Function ("return false")
//if NS6
if (window.sidebar){
document.onmousedown=disableselect
document.onclick=reEnable
}
</SCRIPT>
</div>

</body>

</html>