Hjælp med tilretning af dette lille script ønskes.

Hejsa.

Jeg har fundet lige præcis det script jeg har brug for lige nu, men jeg kan ikke rigtigt få det til at virke.
Det har den funktion, at det sender et glemt password afsted til den person som indtaster sin E-mail-adresse i formularen.
Så hvem kan lige hjælpe mig? Det burde være enkelt nok. Men bare ikke for mig, jeg kan nemlig ikke få det til at virke...  :-/


Her er mine nødvendige oplysninger:
Database-connection:
db/mailing.mdb

Tabel:
mailinglist

E-mail-adresse:
Emailad

Password:
IDpas



Og her er selve scriptet, som jeg ønsker tilpasset med mine egne data:

'First create a user form.
'The user submits the form with thier email address

'HTML Form
<form method="POST" action="sendpassword.asp">                               
<input type="text" name="email" size="20">
<br>Enter your Email<br>                             
<input type="submit" value="Submit">
</form>

'Next create an ASP page and name it sendpassword.asp

<%
strDB="DBQ=" & Server.Mappath("MyDatabase.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
strEmail=Request.Form("email")
Query="SELECT * from myTable WHERE email LIKE '" & strEmail & "'"
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open strDB
Set RSlist = Server.CreateObject("ADODB.recordset")
RSlist.Open Query,DataConn,3

'Looks inside database for email address user submitted.
if RSlist.EOF Then

'If no match then it gives a message.
strMessage = "<br>We are sorry but we cannot find your email address in our system.<BR>Make sure you typed it in correctly."

Else

'If it finds a match it sends the email address and password via email to the requested email address.
fndEmail=RSlist("email")
pword=RSlist("pword")

'Sends mail using CDONTS

Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = "your@email.com"
Mail.To = fndEmail
Mail.Subject = "Your Password"
strMsg = "We have found a password associated with " & fndEmail & "." & vbCrLf & vbCrLf & "Email: " & fndEmail & vbCrLf & "Password: " & pword & vbCrLf & vbCrLf &"Thank You" & vbCrLf &
Mail.Body = strMsg
Mail.Send

strMessage = "<br>Your Password has been mailed to " & fndEmail & "."
End If

'Writes the appropriate message to HTML
Response.Write strMessage
%>


Håber at jeg har forklaret mig tydeligt nok, ellers bare spørg løs.  :-)