Üyelere e-mail atma sorunu [çözüldü]

[adnancelik]

Üye profili içinde(pop_profile.asp) "üyeye e mail gönder"tıklandığında http 500 hatası veriyor.Hataya bakıldığında ise inc_footer_short.asp dosyasının 99 satırında hata gösteriyor.Bu satırda ise
<% set my_Conn = nothing %>kodu yer almaktadır.Sorun nereden kaynaklanmaktadır ve nasıl giderilebilir.
Yardımda bulunacaklara şimdiden teşekkür ederim.

[AdmiN]

Bu sorunu daha önce bir arkadaş ta yaşamıştı.Belki dosyada sorun vardır.Aşağıdaki kodları pop_mail.asp olarak kaydet ve sitedeki ile değiştir.

Kod: [Seç]

<%
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<> Copyright (C) 2004-2005 Tom Nance (SkyDogg) All Rights Reserved
'<> Events Suite Copyright (C) 2004-2005 Ken Smiley All Rights Reserved
'<>
'<> By using this program, you are agreeing to the terms of the
'<> GNU General Public License.
'<>
'<> This program is free software; you can redistribute it and/or
'<> modify it under the terms of the GNU General Public License
'<> as published by the Free Software Foundation; either version 2
'<> of the License, or any later version.
'<>
'<> All copyright notices regarding MaxWebPortal must remain intact
'<> in the scripts and in the outputted HTML.
'<> The "powered by" text/logo with a link back to
'<> http://www.maxwebportal.info in the footer of the pages MUST
'<> remain visible when the pages are viewed on the internet or intranet.
'<>
'<> Support can be obtained from support forums at:
'<> http://www.maxwebportal.info
'<>
'<> Email: maxweb@maxwebportal.info
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'***********************************************************************
'** Copyright (C) 2001 - 2004 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'** http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** http://www.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'** Türkçeye çevirenler: OgReTmEnLeRiM.NeT | Bülent KARAYAZI & UzmanWeb.Net | Adem TÜRK
'***********************************************************************
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top_short.asp" -->
<%
if Request.QueryString("ID") <> "" and IsNumeric(Request.QueryString("ID")) = True then
intMemberID = cLng(Request.QueryString("ID"))
else
intMemberID = 0
end if

'## Forum_SQL
strSql = "SELECT M.M_EMAIL, M.M_NAME FROM " & strMemberTablePrefix & "MEMBERS M"
strSql = strSql & " WHERE M.MEMBER_ID = " & intMemberID

set rs = my_Conn.Execute (strSql)
if Request.QueryString("mode") <> "DoIt" then
%>
      <p><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">E-mail Gönder</font></p>
<% end if
if lcase(strEmail) = "1" then
if Request.QueryString("mode") = "DoIt" then
Err_Msg = ""
if Request.Form("YName") = "" then
Err_Msg = Err_Msg & "<li>Kullanıcı Adınızı Yazmalısınız!</li>"
end if
if Request.Form("YEmail") = "" then
Err_Msg = Err_Msg & "<li>E-Mail Adresini Yazmayı Unuttunuz!</li>"
else
if EmailField(Request.Form("YEmail")) = 0 then
Err_Msg = Err_Msg & "<li>Lütfen Geçerli E-Mail adresi Yazın!</li>"
end if
end if
if Request.Form("Name") = "" then
Err_Msg = Err_Msg & "<li>Lütfen Adınızı Yazınız!</li>"
end if
if Request.Form("Msg") = "" then
Err_Msg = Err_Msg & "<li>Mesaj Yazmayı Unuttunuz!</li>"
end if
if (Err_Msg = "") then
strRecipientsName = Request.Form("Name")
strRecipients = rs("M_EMAIL")
strFrom = Request.Form("YEmail")
strFromName = Request.Form("YName")
strSubject = strSiteTitle & "'ten mail.Gönderen üye: " & Request.Form("YName")
strMessage = "Merhaba " & Request.Form("Name") & vbNewline & vbNewline
strMessage = strMessage & "Maili Gönderen Kişi : " & Request.Form("YName") & " (" & Request.Form("YEmail") & ") " & vbNewline & vbNewline
strMessage = strMessage & strForumURL & vbNewline & vbNewline
strMessage = strMessage & Request.Form("Msg") & vbNewline & vbNewline

if strFrom <> "" then
strSender = strFrom
end if
%>
<!--#INCLUDE FILE="inc_mail.asp" -->

      <p><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">E-Mail Gönderildi</font></p>
<%
else
%>
      <p><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Detaylarınızda Sorun Var!</font></p>
      <table>
        <tr>
          <td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><ul><% =Err_Msg %></ul></font></td>
        </tr>
      </table>
      <p><font size="<% =strDefaultFontSize %>"><a href="JavaScript:history.go(-1)">Düzeltmek İçin Geri Dön</a></font></p>
<%
end if
else
Err_Msg = ""
if rs("M_EMAIL") <> " " then
strSql =  "SELECT M_NAME, M_USERNAME, M_EMAIL "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
strSql = strSql & " WHERE " & strDBNTSQLName & " = '" & chkString(strDBNTUserName,"SQLString") & "'"

set rs2 = my_conn.Execute (strSql)
YName = ""
YEmail = ""

if (rs2.EOF or rs2.BOF)  then
if strLogonForMail <> "0" then
Err_Msg = Err_Msg & "<li>Mesaj Gönderebilmek İçin Siteye Üye Olarak Giriş Yapmak Zorundasınız!</li>"
%>
      <table>
        <tr>
          <td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><ul><% =Err_Msg %></ul></font></td>
        </tr>
      </table>
<%
if InStr(chkString(Request.ServerVariables("HTTP_REFERER"), "refer"), "pop_profile.asp") <> 0 then
%>
      <p><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript:history.go(-1)"><% =rs("M_NAME")%>'in Profiline Dön</a></font></p>
<%
end if
%>
      <p><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript:onClick= window.close()">Pencereyi Kapat</a></font></p>
<%
Response.End
end if
else
YName = Trim("" & rs2("M_NAME"))
YEmail = Trim("" & rs2("M_EMAIL"))
end if
rs2.close
set rs2 = nothing
%>
      <form action="pop_mail.asp?mode=DoIt&id=<% =intMemberID %>" method="Post" id="Form1" name="Form1">
      <input type="hidden" name="Page" value="<% =Request.QueryString("page") %>">
<%
mwpThemeTableCustomCode = "align=""center"" width=""90%"""
mwpThemeBlock_open()
%>
              <tr>
                <td bgColor="<% =strPopUpTableColor %>" align="right" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Alıcının Kullanıcı Adı:</FONT></b></td>
                <td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =rs("M_NAME") %><input type="hidden" name="Name" value="<% =rs("M_NAME") %>"></font></td>
              </tr>
              <tr>
                <td bgColor="<% =strPopUpTableColor %>" align="right" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Sizin Kullanıcı Adınız:</font></b></td>
                <td bgColor="<% =strPopUpTableColor %>"><input name="YName" type="<% if YName <> "" then Response.Write("hidden") else Response.Write("text") end if %>" value="<% = YName %>" size="25"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> <% if YName <> "" then Response.Write(YName) end if %></font></td>
              </tr>
              <tr>
                <td bgColor="<% =strPopUpTableColor %>" align="right" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Email Adresiniz:</font></b></td>
                <td bgColor="<% =strPopUpTableColor %>"><input name="YEmail" type="<% if YEmail <> "" then Response.Write("hidden") else Response.Write("text") end if %>" value="<% = YEmail %>" size="25"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> <% if YEmail <> "" then Response.Write(YEmail) end if %></font></td>
              </tr>
              <tr>
                <td bgColor="<% =strPopUpTableColor %>" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Mesajınız:</font></b></td>
              </tr>
              <tr>
                <td bgColor="<% =strPopUpTableColor %>" colspan="2"><textarea name="Msg" cols="40" rows="5"></textarea></td>
              </tr>                   
              <tr>
                <td bgColor="<% =strPopUpTableColor %>" colspan="2" align="center"><input type="Submit" value="Gönder" id="Submit1" name="Submit1" class="button"></td>
              </tr>
<%mwpThemeBlock_close()%>
      </form>
<%
else
%>
      <p><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Alıcının E-Mail adresi geçerli değil. E-Mail gönderilemiyor.</font></p>
<%
end if
end if
else
%>
      <p><a href="mailto:<% =rs("M_EMAIL")%>"><% =rs("M_NAME")%></a>'e Email göndermek için tıklatın</p>
<%
end if
if InStr(chkString(Request.ServerVariables("HTTP_REFERER"), "refer"), "pop_profile.asp") <> 0 then
%>
      <p><font size="<% =strDefaultFontSize %>"><a href="JavaScript:history.go(-1)"><% =rs("M_NAME")%>'in Profiline Dön</a></font></p>
<%
end if
set rs = nothing
%><!--#INCLUDE FILE="inc_footer_short.asp" -->


[adnancelik]

düzeldi teşekkür ederim

[adnancelik]

Bana verdiğiniz kodu ftp ye attım çözülmüş gibiydi.Ancak birkaç denemeden sonra pop3 dışındaki maillere gönderildi demesine rağmen mail'in gitmediğini gördüm.Acaba neden olabilir?
Servis sağlayıcımla uzun bir görüşme yaptım.Sorunun onlardan kaynaklanmadığını söylediler.
http://www.simav.gov.tr

[burajan]

mail türünü tek tek deneyerek hangisinde sorun çıkmadığını anlayabilirsin. yönetim panelinde mail türü olarak aspemail, jmail, cdonts gibi seçenekler vardır. bunlardan herhangi birini deneyebilirsin.

[adnancelik]

teşekkür ederim

[Rıza]

Aynı hata bende de vardı düzeldi.teşekkürler

[ertan_bios]

Aşağıda web sitenizden ASP ile mail göndermek için gerekli  olan kodu  kopyalayıp bir editör (note pad) vasıtasıyla uzantısını .asp yaparak kaydedin
Hazırladığınız HTML veya ASP  form sayfasında <form method="POST" action="dosyaadi.asp">  bölümünü şeklinde tanımlayın. dosyaadi.asp örnek olarak kullanılmıştır, bu bölümde sizin  yarattığınız dosya ismi yer alacaktır. Yarattığınız dosya .asp uzantılı olmalı ve form sayfası ile aynı klasörde olmalıdır.



<%
On Error Resume Next
For Each Doldur In Request.Form
Message = Message & Doldur & ": " & Request.Form(Doldur) & CHR(10)
Next

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.sunucu.com"
Mail.Username = "admin@sunucu.com"
Mail.Password = "mail şifresi"
Mail.From = "admin@sunucu.com"
Mail.FromName = " Web Form "
Mail.AddAddress "ertan@azbilgi.com", "admin@sunucu.com"
Mail.AddReplyTo "admin@sunucu.com"
Mail.Subject = "mail konusu"
Mail.Body = Message
Mail.Send
If ERR Then
   Response.Write err.Description & "
hata!!!"
Else
   Response.Write "
başaırya gönderildi"
End If
%>


sunucumun verdiği yönergeleri uygulamama yardımcı olursanız sevinirim.
her yolu denedim ama mail gönderildi demesine rağmen mailin ulaştığı felan yok.
mail seçeneklerini her şekile soktum ama nafile

[burajan]

Maxwebportalda mail sunucusunu mail.siteadi.com şeklinde deneyin olmazsa localhost olarak deneyin.

[ertan_bios]

sunucu adresini localhost yapınca düzeldi teşekkür ederim