Send brugernavn og password med Jmail

maildatabase.mdb (database-filen)
users (tabelnavn i maildatabase.mdb)
password, username, email (navne i tabellen)

-----------------------------------------------------------------

dsn.asp (filen, der kalder databasen) - kildekode:

et Conn = Server.CreateObject("ADODB.Connection")
DataBase = "Data Source="& server.mappath("maildatabase.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"
Conn.Open (DataBase)

------------------------------------------------------------------

sendpassword.asp ("hovedfilen" - kildekode:

<HTML>
<head>
<META HTTP-EQUIV=Refresh CONTENT="10; URL=index.htm">
</head>
<body>
<center>
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  'Include database filen, den indeholder connection til databasen %>
  <!--#include file="dsn.asp"-->
  <%
  Set rs = Server.CreateObject("ADODB.RecordSet")
  email = replace(Request.Form("email"),"'","''")
  strSQL= "SELECT * FROM users WHERE email = '" & email & "';"
  Set rs = Conn.Execute (strSQL)
  if not rs.EOF then
    'send password til brugeren
    Set JMail= Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = "smtp.varde.nu"
    JMail.Sender        = "admin@varde.nu"
    JMail.SenderName    = "Tinghøjgård"
    JMail.Subject      = "Brugernavn og password til Tinghøjgård"
    JMail.AddRecipient  rs(email)
    JMail.AddHeader    "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
    BodyText = "Du har bedt om at få tilsendt dit brugernavn og password til Mit Forum." & vbCrLf
    BodyText = BodyText & "Dit password er: " & rs("password") & vbCrLf
    BodyText = BodyText & "Dit brugernavn er: " & rs("username")   
    BodyText = BodyText & "Hilsen Tinghøjgård/www.varde.nu"
    JMail.Body = BodyText
    JMail.Silent = true
    JMail.Execute
    Set JMail = Nothing 
    Response.Write "En mail med dit password er send til dig."
  else
    Response.Write "kunne ikke finde bruger oplysninger."
  end if
  Conn.Close
else
  Response.Redirect("index.htm")
end if
%>
<br><br>
Du vil automatisk bliver stillet om til login siden om 10 sekunder.
</center>
</body>
</HTML>

-----------------------------------------------------------------

ny_side_1.htm (indtastningsfelt) - kildekode:

<table border="1">
<form method="post" action="sendpassword.asp" name="sendpassword">
  <tr><td colspan="2" align="center">Jeg har glemt mit brugernavn og password, send det til mig.</td></tr>
  <tr><td>E-mail:</td><td><input name="email"></td></tr>
  <tr><td colspan="2" align="center"><input type="submit" value="Send" name="Action"></td></tr>
</form>
</table>

------------------------------------------------------------------

Jeg kan ikke få ovenstående til at virke. Jeg får meddelelsen:

Set Conn = Server.CreateObject("ADODB.Connection") DataBase = "Data Source="& server.mappath("maildatabase.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" Conn.Open (DataBase)
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/sendpassword.asp, line 14

....hvad er der galt?