JMail sender ikke beskeden med i mailen
Jeg vil gerne have mit script til at sende en mail til mig, med besked, navn, på den der har skrevet en kommentar til en artikel... jeg har fået scriptet til at sende en mail til mig, men den tager ikke navn og besked med... jeg får blot en mail der ser således ud:Der er skrevet en kommentar til en artikel.
Navn:
Besked:
******************
Siden den sender fra ser således ud:
<%
Dim Conn, RS, Mode, Redir
Mode = Request.Form("Mode")
Session.LCID = 1030
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open UsrConnect()
Set RS = Server.CreateObject("ADODB.RecordSet")
If Mode = "News" then
If Request.Form("Name") = "" Then
Response.Write "<b>Fejl:</b> Du mangler at indtaste dit navn!<p><a href='java script:history.back(-1)'><< Tilbage til beskeden</a>"
ElseIf Request.Form("Topic") = "" Then
Response.Write "<b>Fejl:</b> Du mangler at indtaste en overskrift!<p><a href='java script:history.back(-1)'><< Tilbage til beskeden</a>"
ElseIf Request.Form("Text") = "" Then
Response.Write "<b>Fejl:</b> Du mangler at indtaste en besked!<p><a href='java script:history.back(-1)'><< Tilbage til beskeden</a>"
Else
RS.Open "SELECT * FROM News", Conn, 1, 3
RS.AddNew
RS("Name") = Request.Form("Name")
RS("Email") = Request.Form("Email")
RS("Topic") = Request.Form("Topic")
RS("Text") = Request.Form("Text")
RS("Date") = Now()
RS.Update
RS.Close
Redir = "default.asp"
End If
ElseIf Mode = "Comment" then
If Request.Form("Name") = "" Then
Response.Write "<b>Fejl:</b> Du mangler at indtaste dit navn!<p><a href='java script:history.back(-1)'><< Tilbage til beskeden</a>"
ElseIf Request.Form("Text") = "" Then
Response.Write "<b>Fejl:</b> Du mangler at indtaste en besked!<p><a href='java script:history.back(-1)'><< Tilbage til beskeden</a>"
Else
RS.Open "SELECT * FROM Comments", Conn, 1, 3
RS.AddNew
RS("TID") = Request.Form("TID")
RS("Name") = Request.Form("Name")
RS("Email") = Request.Form("Email")
RS("Text") = Request.Form("Text")
RS("Date") = Now()
RS.Update
RS.Close
' =============================================
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "localhost:26"
JMail.Priority = 1
JMail.Sender = "admin@minside.dk"
JMail.AddRecipientEx "admin@minside.dk", ""
Jmail.AddRecipientCC "admin@minside.dk"
Jmail.AddRecipientBCC "admin@minside.dk"
JMail.Subject = "Der er skrevet en kommentar til en artikel."
JMail.Body = "Der er skrevet en kommentar til en artikel.<b>Navn:</b>" & Name & "<br><b>besked:</b>" & Text
JMail.Execute
Set JMail = Nothing
Redir = "view.asp?TID="& Request.Form("TID")
End If
End If
Set RS = Nothing
Conn.Close
Set Conn = Nothing
Response.Redirect(Redir)
%>
Er der en, der kan se fejlen?
