Validering af email op mod ID fra Access-database

Jeg er desværre groet lidt fast. Håber I kan hjælpe.

Jeg vil til at sende en mail ud til nogle brugere i en database. Jeg vil benytte mailliste-koden nedenfor.
I denne mail skal de benytte et link(f.eks www.side.dk/formular-side.asp?id=123), som linker til en simpel formular-side(kode nedenfor)
Når de kommer ind på denne formular-side(kode nedenfor) skal de indtaste ny data plus deres email, email'en skal bruges til validering. Det skulle jo helst være sådan at man kun kan updatere database-posten hvis ID og email passer sammen.


Hvordan validere man disse med hinanden?? 
Og hvis de taster forkert(ikke bliver godkendt), skal der komme en forklarende tekst, at de skal prøve det eller det, hvordan gøres det?

Jeg håber det er til at forstå meningen, og ellers spørg.



---mailliste - side---

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../xxx.mdb")
Conn.Open DSN

sql = "SELECT * FROM mailliste"
set rs = Conn.Execute(sql)

if not (rs.bof or rs.eof) then
do while not rs.eof
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "xxx.xxx.dk"

Mailer.FromName = "afs.navn"
Mailer.FromAddress = "xxx@xxx.dk"
Mailer.AddRecipient rs("fornavn") & " " & rs("efternavn"), rs("email")
Mailer.Subject = "mailliste"
Mailer.CharSet = 2


strHTMLBody = "<font face='Verdana' size='2'><b>Hej</b><br>" & vbCrLf
strHTMLBody = strHTMLBody & "<br>" & vbCrLf
strHTMLBody = strHTMLBody & "Dette er en html test!.<br>" & vbCrLf
strHTMLBody = strHTMLBody & "<br>" & vbCrLf
strHTMLBody = strHTMLBody & "<a href='http://www.side.dk/formular-side.asp?id=" & rs("id") & "'>" & "http://www.side.dk/formular-side.asp?id=" & rs("id") & "</a>" & "<br><br>" & vbCrLf
strHTMLBody = strHTMLBody & "Venlig hilsen<br><br>" & vbCrLf
strHTMLBody = strHTMLBody & "<u>moi</u><br></font>" & vbCrLf

Mailer.ContentType = "text/html"
Mailer.BodyText = strHTMLBody

if not Mailer.SendMail then
  Response.Write "<br><br><b> er ikke sendt til: <br><u><font color=#FF0000>"& rs("email") &"</font></u></b><br>"
  Response.Write Mailer.Response
else
  Response.Write "<br><b> er sendt til: <font color=#008000>"& rs("email") &"</font></b><br><p>"
end if

Set Mailer = nothing
rs.movenext
loop
end if

Conn.Close
Set Conn = Nothing
%>
---end---



---formular - side---

<form method="POST" action="xxx.asp">
  <p><font face="Verdana" size="2">Nyinfo</font><br>
  <input type="text" name="nyinfo" maxlength="3" size="10"></p>
  <p><FONT face=Verdana size=2>Email:</FONT><br>
  <INPUT name=email></p>
  <p><input type="submit" value="Submit"><input type="reset" value="Reset"></p>
</form>
---end---



---send til database - side---

strSQL = strSQL & "nyinfo= "  & Request.Querystring("nyinfo") & " , "
strSQL = strSQL & "dato2= Now() "

Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
---end---