Password forgot

hej jeg har dette script:

<html>

<head>
<title>Hent password</title>
</head>

<body>
<% If Request.QueryString(\"modtager\")=\"\" Then%>

Indtast din emailadresse, så sender vi fig dit brugernavn og password med det samme. <BR><BR>
Venlig hilsen <BR><BR>

Forum

<form method=\"GET\" action=\"forgotpw.asp\">
  <div align=\"center\"><table border=\"0\">
    <tr>
      <td width=\"200\"><div align=\"left\"><p align=\"right\">Indtast din e-mail adresse her:
        </div>
      </td>
      <center>
      <td width=\"503\"><input type=\"text\" name=\"modtager\" size=\"40\"></td>
    </tr>
        <tr>
      <td width=\"200\"></td>
      <td width=\"503\"><input type=\"submit\" value=\"Send\" size=\"20\"></td>
    </tr>
  </table>
  </center></div><p>&nbsp;</p>
</form>

<% Else
Dim Forbind,Find,Spoerg,Emne,Indhold,Modtager,Afsender,Postmedd

Set Forbind = Server.CreateObject(\"ADODB.Connection\")
Forbind.Open \"forum\"

Spoerg = \"SELECT * FROM User WHERE Email=\'\" & Request.QueryString(\"modtager\") &\"\'\"
Set Find = Forbind.Execute(Spoerg)
Response.Write Spoerg
Afsender = \"xxx@yyy.zz\"
Modtager = Find(\"Email\")
Emne = \"Dit brugernavn og password fra Forum\"
Indhold = \"Dit brugernavn er: \" & Find(\"Userid\") & VbCrLf & \"Dit password er: \" & Find(\"Password\") & VbCrLf &\"Venlig hilsen\" & VbCrLf & \"Forum\"

Set postmedd = Server.CreateObject(\"CDONTS.NewMail\")
postmedd.From = Afsender
postmedd.To = Modtager
postmedd.Subject = Emne
postmedd.Body = Indhold
postmedd.Send
Set postmedd = Nothing

Response.Write (\"Meddelelsen er sendt til din email adresse\")

End If

%>
</body>
</html>

Og så vil jeg gerna have at den leder I en database med navnet DB og i tabellen users