send en mail når der en kommentar?
Jeg har et artikelscript på min side. Når der skrives en kommentar til en artikel vil jeg gerne have scriptet til at sende mig en mail (i jamil) om at der er en kommentar. Hvordan gør jeg det? er der venlig sjæl der vil hjælpe mig ?jeg syntes det virker for forvirende når jeg kigger i min save.asp .... og kan ikke lige se hvor det er jeg skal sætte koden ind til jmail. :o)
new_comment.asp:
<!--#include file="includes/services.asp"-->
<!--#include file="includes/db_link.asp"-->
<!--#include file="includes/config.asp"-->
<FONT FACE="VERDANA" SIZE="2"><%
Dim Conn, RS, Text
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open UsrConnect()
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open "SELECT * FROM News WHERE TID = "& Request("TID"), Conn, 1, 3
Text = Replace(RS("Text"), VbCrLF, "<br>")
%>
<html>
<head>
<title><%= Page_Title %></title>
<link rel="stylesheet" type="text/css" href="includes/styles.asp">
<link rel="stylesheet" type="text/css" href="css.asp">
</head>
<body>
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#990000" width="500" height="246" id="AutoNumber1">
<tr>
<td width="500" height="22"bgcolor="#990000"><FONT FACE="VERDANA" SIZE="2" COLOR="WHITE"><b><center><%= RS("Topic") %></center></b></FONT></td>
</tr>
<tr>
<td width="500" height="208" valign="top"bgcolor="#F3F3F3"colspan="2"><%= Text %></td>
</tr>
</table>
</center>
<%
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
<hr width="<%= Line_Width %>" noshade color="#<%= Line_Color %>">
<form method="POST" action="save.asp">
<input type="hidden" name="Mode" value="Comment">
<input type="hidden" name="TID" value="<%= Request("TID") %>">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="<%= Table_Width %>">
<tr>
<td width="81">Navn:</td>
<td width="465"><input type="text" name="Name" size="<%= Field_Length %>" maxlength=""></td>
</tr>
<tr>
<td width="81">E-Mail:</td>
<td width="465"><input type="text" name="Email" size="<%= Field_Length %>" maxlength="255"></td>
</tr>
<tr>
<td width="81" valign="top">Teksten:</td>
<td width="465"><textarea class="area" rows="<%= Area_Rows %>" name="Text" cols="<%= Area_Cols %>"></textarea></td>
</tr>
</table>
</center>
</div>
<p align="center"><input type="submit" value="Gem Kommentar" name="Send" class="button"></p>
<p align="center"><font face="Verdana" size="1"><a href="artikel.asp">Tilbage til oversigten</a></font></p>
</form>
save.asp
<!--#include file="includes/db_link.asp"-->
<!--#include file="includes/config.asp"-->
<html>
<head>
<title><%= Page_Title %></title>
<link rel="stylesheet" type="text/css" href="includes/styles.asp">
</head>
<body>
<center>
<%
Dim Conn, RS, Mode, Redir
Mode = Request.Form("Mode")
Session.LCID = 2057
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
Redir = "view.asp?TID="& Request.Form("TID")
End If
End If
Set RS = Nothing
Conn.Close
Set Conn = Nothing
Response.Redirect(Redir)
%>
</center>
</body>
</html>
