ontugfidancilik.com.tr adresinin iletişim bölümündeki formu doldurup göndere bastığımda sunucu hatasıyla karşılaşmaktayım. iletişim formunu kontrol ediyorum ama bir hata bulamadım. sebebini söyleyebilecek veya formu düzeltebilecek bir arkadaştan yardım bekliyorum. şimdiden teşekürler
<% if request.form("ad")="" then %>
<% call yaz %>
<% else %>
<% call yolla %>
<% end if %>
<% sub yaz %>
<%
taban_sayi = 9999
tavan_sayi = 99999
Randomize()
intRangeSize = tavan_sayi - taban_sayi + 1
random = intRangeSize * Rnd()
random = random + taban_sayi
gk = Int(random)
%>
<%session("guvenlik2")=gk%>
<script>
</script>
<script>
</script>
<% end sub %>
<% sub yolla %>
<%
session.CodePage=1254
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "pop3.ontugfidancilik.com"
Mail.Username = "iletisim@ontugfidancilik.com"
Mail.Password = "ont123"
Mail.From = "iletisim@ontugfidancilik.com"
Mail.FromName = "SİTEDEN MESAJ"
Mail.AddAddress "iletisim@ontugfidancilik.com"
Mail.AddAddress "satis@ontugfidancilik.com"
Mail.AddAddress "bontug_09@hotmail.com"
Mail.Subject = request.Form("konu")
Mail.Body= "Gönderen: " & request.Form("ad")& "
" & "mail: " & request.Form("email")& "
" & request.Form("konu") & "
" & replace(request.Form("mesaj"),vbcrlf,"
")
Mail.Send
If ERR Then
Response.Write err.Description & "
error"
Else
Response.write "Mesajınız Gönderildi"
End If
%>
<% end sub %>