Persists.Mailsender errors and problems

[puafo]

Hi there,

New the email side of things and am getting errors.

Error:

Microsoft VBScript compilation error '800a03fa'
Expected 'Wend'
/forgotten_password_confirm.asp, line 18

Code:

<%
DIM strSQL, rspuafo, adminmail, sub_email
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("puafo.mdb")
Set rspuafo = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM ClientDetails WHERE (((ClientDetails.PuafoLogin)='" & Request.Form("PuafoLogin") & "')) ;"
rspuafo.Open strSQL, adoCon

While Not rspuafo.EOF
set adminmail = Server.CreateObject("Persits.MailSender")
sub_email = rspuafo("Email")
adminMail.host ="smtp.snap.net.nz"
adminmail.From = "[e-mail]"
adminmail.AddAddress sub_email
adminmail.Subject = "Requested Password!"
adminmail.Body = "your password is: " & rspuafo("PuafoPassword")
adminmail.IsHTML = true
adminmail.Send
set adminmail = nothing
%>

Any help would be greatly appreciated!

[txbakers]

Hi and welcome to the Webmaster World!

you need a "wend" before the closing %>

If you have a While, you need a WhileEND statement too.

You should take the time to know what each line of that code does before you use it. That will come in handy as you get more involved with using components, etc.

[dukelips]

visit w3schools and get a grasp of asp and vbscript

[puafo]

Thanks guys, I was using this forum to get a grasp of asp with a little help from others.
I used another forum and they supplied the answer.
Thanks anyway.