email ved besvarelse

Jeg har lavet er forum (en X file hehe) her er den kode jeg bruger:
(jeg skal i den dejlige dansk folkeskole i morgen, så jeg gider ikke side og rode vildt meget...tag hvad du vil ha)

<!-- #include file="./tjek.asp" -->
<% if Request.Form("Besked") = "" then %>
<%
Response.Redirect("./spg.asp?id=" & Request.Form("spgid") & "&fejl=tekst")
%>
<% else %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databasen.mdb")
SQL = "SELECT * FROM Forum WHERE ID=" & Request.Form("spgid") & ""
Set fRS = Server.CreateObject("ADODB.RecordSet")
fRS.Open sql, conn, 1, 3
%>
<%
DIm SpgID, FormType, Besked, Navn, BruID
Function sqlreplace(streng)
    sqlreplace = Replace(streng,"'","''")
    sqlreplace = Replace(streng,"<","&lt;")
    sqlreplace = Replace(streng,">","&gt;")
    sqlreplace = Replace(streng,"%gt;","´|´&gt;")
    sqlreplace = Replace(streng,"&lt;%","&lt;´´|´´")
    sqlreplace = Replace(streng,vbCrLf,"<br>")
    sqlreplace = Replace(streng," ","&nbsp;")
End Function
SpgID = sqlreplace(Request.Form("spgid"))
FormType = sqlreplace(Request.Form("Type"))
Besked = sqlreplace(Request.Form("Besked"))
BruID = sqlreplace(bruRS("id"))

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databasen.mdb")
SQL = "SELECT * FROM ForumSvr"
Set bruRS3 = Server.CreateObject("ADODB.RecordSet")
bruRS3.Open sql, conn, 1, 3
bruRS3.AddNew
bruRS3("SpgID") = fRS("ID")
bruRS3("Type") = FormType
bruRS3("Besked") = Besked
bruRS3("Navn") = bruRS("brugernavn")
bruRS3("Email") = "Ja"
bruRS3("BruID") = BruID
bruRS3.Update
if FormType = "Svar" or FormType = "Fortsat svar" then
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databasen.mdb")
    SQL = "SELECT * FROM Forum WHERE ID=" & fRS("ID") & ""
    Set ffrs = Server.CreateObject("ADODB.RecordSet")
    ffrs.Open sql, conn, 1, 3
    ffrs.Update
    ffrs("Ind") = ffrs("Ind") + 1
    ffrs.Update
end if
%>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT DISTINCT Navn FROM ForumSvr WHERE SpgID='" & fRS("ID") & "' AND Email='Ja'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("databasen.mdb")
rs.Open strSQL, strDSN, 1
%>
<%
if rs.EOF then
%>
<%
else
%>
<%
Do Until rs.EOF
%>
<% if rs("Navn") = bruRS("brugernavn") then %>
<% else %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databasen.mdb")
SQL = "SELECT * FROM Medlemmer WHERE Brugernavn='" & rs("navn") & "'"
Set bruRS2 = Server.CreateObject("ADODB.RecordSet")
bruRS2.Open sql, conn, 1, 3
%>
<%
  strHvem = bruRS2("brugernavn")
if Request.Form("Type") = "Fortsat svar" then
  strHvad = "svaret"
elseif Request.Form("Type") = "Svar" then
  strHvad = "svaret på"
elseif Request.Form("Type") = "Kommentar" then
  strHvad = "kommenteret"
  end if
  Str_Email=bruRS2("Email")

  Name = "Nicolai M. Persson - Admin(SITE CREATOR)"

  Set JMail = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "mail.dk"
  JMail.Sender = "n.persson@mail.dk"
  JMail.Subject = "My-Universe Forum: " & fRS("Emne") & ""
  JMail.Body = ""
  JMail.Body=JMail.Body & "Hej " & bruRS2("Brugernavn") & "!" & vbCrLf
  JMail.Body=JMail.Body & "" & bruRS("Brugernavn") & " har " & strHvad & " spørgsmålet: " & vbCrLf
  JMail.Body=JMail.Body & "http://www.friserverplads.dk/XXX/spg.asp?id=" & fRS("ID") & "" & vbCrLf & vbCrLf
  JMail.Body=JMail.Body & "Med Venlig Hilsen" & vbCrLf
  JMail.Body=JMail.Body & "  Nicolai M. Persson - Admin(SITE CREATOR)" & vbCrLf
  JMail.AddRecipient bruRS2("Email")
  JMail.Priority = 3
  JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
  JMail.Execute
%>
<% end if %>
<%
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing
%>
<%
Response.Redirect("spg.asp?id=" & request.form("spgid") & "")
%>
<% end if %>

-----------------
Jeg laver gerne en som passer nøjagtigt til din side imorgen..ok?

MVH
Mr.Meincke

min mail er: n.persson@mail.dk
skriv hvis du skal have lavet en "SPECIAL KODE" til din side :)

MVH
Mr.Meincke

Okay tak hvis du vil lave en special kode til mig men nu skal jeg lige først hjem og se om jeg kan bruger det/få det til at virke.

ok...men send en mail hvis du vil have lavet en "SPECIAL KODE" ... CYA


MVH
Mr.Meincke

tak for hjælpen