record exist or not

keyvanjan · May 5th, 2006, 04:29 AM

Hi,
I have a form with an email field.
The user input his emails with comma separated like this [email protected],[email protected]
in the second page I split the string and now I want to check each email address in the db.if exist send err message if not go on.
the code below does not work.what should I do?
strTo=request.form("to")
strEmails=split(strTo,",")

For each strTo in strEmails
do while not rsExist.eof

if (strComp(RsExist("Email"),strTo, vbTextCompare)=0) then
response.write "email exist"

rsExist.movenext
loop

response.end
end if

next

moooon · May 5th, 2006, 09:07 AM

Hi keyvanjan

Please try like this

Code:

strTo=request.form("to")
strEmails=split(strTo,",")

For each strTo in strEmails
    While not rsExist.EOF
        If UCase(Trim("" & RsExist("Email"))) = UCase(Trim(strTo)) Then
            Response.Write "email exist"
            Response.End        
        Else        
        End If        
        rsExist.MoveNext
    Wend
Next

Correct me if it is wrong
Regards,

keyvanjan · May 5th, 2006, 11:39 AM

thanks a lot it worked