fejl?

<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\") 
      conStr = \"Provider=Microsoft.Jet.OLEDB.4.0;\" 
    conStr = conStr & Server.MapPath(\"/database/database.mdb\")
    DataConn.Open conStr 
Dim news
    news = Request.QueryString(\"news\")
    StrSQL = \"SELECT * FROM news WHERE id=\" & news
    Set rs = DataConn.Execute(SQL) 
%>   
<html>

<head>
<title>Anbefaling</title>
</head>

<body BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\">
<%

dig = request(\"navn\")
ham = request(\"hisnavn\")
mail = request(\"ad\")

if  Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
   
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ContentTransferEncoding = \"8bit\"
        JMail.Charset = \"ISO-8859-1\"
       
    JMail.Priority = 1
    JMail.ServerAddress = \"din_smtp.server.dk\"
        JMail.Sender = \"Din_afsender_e-mail.dk\"
        JMail.Subject = \"Artikkel sendt til dig, fra din ven \" & dig
        JMail.Body = \"Hej\" & ham & vbCrLf & \"Din ven \" & dig & \", har besøgt vores side http://www.DINSIDE.dk og sendt dig denne artikkel\" &vbCrlf
       
        JMail.Body= JMail.Body + rs(\"titel\") & vbCrLf
        JMail.Body= JMail.Body + rs(\"teaser\") & vbCrLf & vbCrlf
        JMail.Body= JMail.Body + \"Du kan læse den fulde artikkel på http://www.DINSIDE.dk/nyhed.asp?id\"& news & vbCrLf \"Håber vi ses dig\"
        JMail.AddRecipient mail
       
        JMail.Execute
        set JMail = nothing
response.write \" Nyheden \" & rs(\"titel\") & \" er sendt til \" & ham & \" på \" & mail

   

else %>

<form action=\"anbef.asp\" METHOD=\"POST\">
  <table cellpadding=\"2\" cellspacing=\"2\" border=\"1\">
    <tr>
      <td><div align=\"center\"><center><h2>Anbefal Min side</h2>
      </center></div></td>
    </tr>
    <tr>
      <td><input TYPE=\"TEXT\" onFocus=\"this.form.ad.select()\" value=\"Modtagerens e-mail?\"
      NAME=\"ad\" SIZE=\"17\"> </td>
    </tr>
    <tr>
      <td><input TYPE=\"TEXT\" onFocus=\"this.form.navn.select()\" value=\"Afsenderens navn?\"
      NAME=\"navn\" SIZE=\"17\"> </td>
    </tr>
    <tr>
      <td><input TYPE=\"TEXT\" onFocus=\"this.form.hisnavn.select()\" value=\"Modtagerens navn?\"
      NAME=\"navn\" SIZE=\"17\"> </td>
    </tr>
    <tr>
      <td><input type=\"submit\" value=\"Send\"> </td>
    </tr>
  </table>
</form>
<%    end if%>

<%
DataConn.Close 
Set DataConn = Nothing
%>
</body>
</html>

Kan i se nogen synlige fejl? eller mangler, laver det for en anden, men har ikke selv Jmail (: så kan ikke teste det

JiggyPoof