jmail koblet på dette lille forum.

jeg har fundet dette lille forum. jeg magler bare en lille jmail funktion koblet der på som skal gøre følgende.

1) tage teksten som man opretter i forumet, og putte det i mailen
2) sende den ud til de email adresser jeg har i en tabel i min db.
3) samt sende mail ude igen når der bliver besvaret igen på et indlæg

<!-- #include file="../databaseforbindelse.asp"-->
<%
//Udvikler: Anders Pedersen
//E-mail: anders@altforlaekker.dk
//Hjemmeside: http://svalde.dyndns.dk
%>

<% mode = request("mode") %>
<title>:: F O R U M ::</title>
<link href="main_css.css" type="text/css" rel="stylesheet">

<% If mode="" then %>
<table height="100%" width="100%" border="1">
<tr>
    <td><iframe src="default.asp?mode=indlaeg" height="45%" width="100%" frameborder="1">
    </td>
</tr>
<tr>
    <td valign="bottom"><iframe src="" height="55%" width="100%" frameborder="1" name="main_iframe"></td>
</tr>
</table>
<% End IF %>

<% If mode="indlaeg" then %>
<% strSQL = "Select * from forum Order By Dato Desc"
    strSQL2= "Select* from forum_svar"
    Set rs = Conn.Execute(strSQL)
    Set rs2= Conn.Execute(strSQL2) %>
<a href="default.asp?mode=opret">Opret indlæg</a>&nbsp;
<hr align="left" color="#066A9E" width="100%" size="1">

<table width="100%" border="0">
<% Do While Not rs.EOF %>
<tr onmouseover="java script:this.style.backgroundColor='066A9E';" onmouseout="java script:this.style.backgroundColor='#FFFFFF';">
    <td><a href="default.asp?ID=<% Response.Write rs("id") %>&EmneID=<% Response.Write rs("id") %>&mode=read" class="9pt" target="main_iframe"><% Response.Write rs("Titel") %></A></td>
    <td><font class="9pt"><% Response.Write rs("Bruger") %></FONT></td>
    <td><font class="9pt"><% Response.Write rs("Dato") %></FONT></td>
</tr>
<% rs.MoveNext %>
<% Loop %>
</table>

<% Conn.Close %>
<% End IF %>

<% If mode = "read" then %>
<% strSQL = "Select* from forum Where ID=" & Request("ID")
    strSQL2= "Select* From Forum_svar Where EmneID=" & Request("ID") & " Order By Dato Desc"
    Set rs = Conn.Execute(strSQL)
    Set rs2= Conn.Execute(strSQL2) %>

<a href="default.asp?titel=<% Response.Write rs("titel") %>&EmneID=<% Response.Write Request("emneid") %>&mode=indlaeg_bsv">Reply</a>&nbsp;
<hr align="left" color="#066A9E" width="100%" size="1">

<table width="100%" border="0">
<tr valign="top">
    <td width="100%" bgcolor="#066A9E"><font class="9pt_hv"><% Response.Write rs("Titel") %></font></TD>
</tr>
<tr valign="top">
    <td width="100%"><font class="9pt"><% Response.Write (Replace(rs("Diskusion"), vbCrLf, "<br>")) %></font></TD>
</tr>
</table>

<br>

<table width="100%" border="0">
<% Do While Not rs2.EOF %>
<tr valign="top">
    <td width="100%" bgcolor="#066A9E"><font class="9pt_hv"><% Response.Write rs2("Titel") %></font></TD>
</tr>
<tr valign="top">
    <td width="100%"><font class="9pt"><% Response.Write (Replace(rs2("Svar"), vbCrLf, "<br>")) %></font></TD>
</tr>
<% rs2.MoveNext %>
<% Loop %>
</table>
<% Conn.Close %>
<% End IF %>

<% If mode = "opret" then %>
<font class="8pt_gray">Create Post</font>
<hr align="left" color="#066A9E" width="100%" size="1">

<form action="default.asp?mode=Action" method="POST" name="Opret_indlaeg">
<table align="left" border="0">
<tr>
    <td><font class="9pt">Title:</font></td>
    <td><input type="text" name="Titel" class="all"></td>
    <td></td>
</tr>
<tr>
    <td><font class="9pt">Name:</font></td>
    <td><input type="text" class="all" NAME="Navn"></td>
    <td></td>
</tr>
<tr valign="top">
    <td><font class="9pt">Post:</font></td>
    <td><textarea wrap="physical" rows="7" cols="60" name="Indlaeg" class="all"></textarea></td>
    <td valign="bottom"><input type="submit" value="Post" name="Opret" class="all"></td>
</tr>
</table>
</form>
<% End IF %>

<% If mode = "indlaeg_bsv" then %>
<font class="8pt_gray">Reply</font>&nbsp;
<hr align="left" color="#066A9E" width="100%" size="1">

<form action="default.asp?EmneID=<% Response.Write Request("emneid") %>&mode=Action" method="POST" name="Opret_bsv">
<table align="left" border="0">
<tr>
    <td><font class="9pt">Title:</font></td>
    <td><input type="text" value="Re: <% Response.Write Request("titel") %>" name="Titel" class="all"></td>
    <td></td>
</tr>
<tr>
    <td><font class="9pt">Name:</font></td>
    <td><input type="text" class="all" name="Navn"></td>
    <td></td>
</tr>
<tr valign="top">
    <td><font class="9pt">Post:</font></td>
    <td><textarea wrap="physical" rows="10" cols="60" name="Indlaeg" class="all"></textarea></td>
    <td valign="bottom"><input type="submit" value="Anwser" name="Opret" class="all"></td>
</tr>
</table>
</form>
<% End IF %>

<% if mode="Action" then %>
<% if Request("Opret") = "Post" then
            strTitel = Trim(Replace(request("Titel"),"'","''" ))
            strIndlaeg = Trim(Replace(request("Indlaeg"),"'","''" ))
            strSQL = "Insert into forum(Titel, Bruger, Email, Diskusion) values('" & strTitel & "','" & Request("Navn") & "','" & Request("Email") & "','" & strIndlaeg & "')"
            Conn.Execute(strSQL)
            Conn.Close
            Response.Redirect "?mode=indlaeg"
        End if %>
<% if Request.Form("Opret") = "Anwser" then
            strTitel = Trim(Replace(request("Titel"),"'","''" ))
            strIndlaeg = Trim(Replace(request("Indlaeg"),"'","''" ))
            strSQL = "Insert into forum_svar(Titel, Bruger, Email, Svar, EmneID) values('" & strTitel & "','" & Request.form("Navn") & "','" & Request.form("Email") & "','" & strIndlaeg & "','" & Request.QueryString("EmneID") & "')"
            Conn.Execute(strSQL)
            Conn.Close
            Response.Redirect "?mode=read&EmneID=" & Request("emneid") & "&ID=" & Request("emneid")
        End if %>
<% End if %>