Arkadaşlar 2 gündür uğraşıyorum biyerlerde hata var ama çözemedim deli olucam kodlara bir bakarsanız çok sevinirim.
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
StrName = Request.Form("txtAdSoyad")
StrPhone = Request.Form("txtTelefon")
StrEmail = Request.Form("txtEmail")
StrGSM = Request.Form("txtGSM")
StrMessage = Request.Form("txtAciklama")
Set cdoConfig = CreateObject("CDO.Configuration" )
With cdoConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "mail.tufekciogullari.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ) = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername" ) = "user@tufekciogullari.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword" ) = "sifree"
.Update
End With
Set cdoMessage = CreateObject("CDO.Message" )
With cdoMessage
Set .Configuration = cdoConfig
.From = "user@tufekciogullari.com"
.To = authRs("Email")
.Bcc = "user@tufekciogullari.com"
.Subject = "Tüfekçioğulları Emlak Kurumsal Web Sitesi - İlan Bilgi Formu"
.htmlbody = "<html><body>"&_
"<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-9"" />"&_
"Web sitenizin emlak ilanı bilgi edinme formundan gelen bilgiler<br /><hr /><br />"&_
"<strong>Adı Soyadı : </strong>"&StrName&_
"<br /><br /><strong>Telefon :</strong>"&StrPhone&_
"<br /><br /><strong>GSM :</strong>"&StrGSM&_
"<br /><br /><strong>E-Posta : </strong>"&StrEmail&_
"<br /><br /><strong>Açıklama : </strong>"&StrMessage&_
"<br /><br /><strong>İlan Açıklama : </strong>"& server.urlencode(pagetitle) &_
"</html></body>"
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
Sonuc = "Sayın "& StrName &" ilginize Teşekkür Ederiz.En Kısa Zamanda sizinle iletişim kurulacaktır."
End If
%>
<form onsubmit="return formSubmit();" id="IlanBilgiFormu" name="IlanBilgiFormu" method="post" action="">
<div id="StrMessage" style="color:#83b73c;font-weight:bold;float:left;clear:both;font:11px Arial"><%=Sonuc%></div>
<table style="width:100%;">
<tr>
<td class="txtMN">Ad Soyad</td>
<td><input type="text" name="txtAdSoyad" id="txtAdSoyad" style="width:200px" /></td>
</tr>
<tr>
<td class="txtMN">Telefon</td>
<td><input type="text" name="txtTelefon" id="txtTelefon" style="width:200px" />
</td>
</tr>
<tr>
<td class="txtMN">GSM</td>
<td><input type="text" name="txtGSM" id="txtGSM" style="width:200px"/>
</td>
</tr>
<tr>
<td class="txtMN">E-Posta</td>
<td><input type="text" name="txtEmail" id="txtEmail" style="width:200px" /></td>
</tr>
<tr>
<td class="txtMN">İlan No</td>
<td><input type="text" name="ilanno" id="ilanno" value="<%=rs("IlanKodu")%>" disabled="disabled" style="width:200px" /></td>
</tr>
<tr>
<td class="txtMN" valign="top">Açıklama</td>
<td><textarea name="txtAciklama" id="txtAciklama" style="width:100%;height:120px" ></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="Submit" name="btnSubmit" id="btnSubmit" value="Gönder" /></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%
Set authRs = Nothing
%>