Koder til at validere tilmeldingsform

Hej med jer..

Alle felterne skal udfyldes.. men hvordan skriver jeg en kode der lige popper op og siger : du skal udfylde email. !

Her er koden:



id = Request.Form("id")
SQL = "select * from hold where id = " & id
set rs = Conn.Execute(SQL)
holdnavn = rs("holdnavn")
holdnummer = rs("holdnr")
tider = rs("tider")
dag = rs("dag")
instruk = rs("instruktør")
pris = rs("pris")
slut = rs("sluttid")

strSQL = "Insert into tilmelding (efternavn, for2, adresse, postnr, fby, telefon, email, fornavn, dato, holdnr) values('" & Request.Form("efternavn") & "','" & Request.Form("for2") & "','" & Request.Form("adresse") & "','" & Request.Form("postnr") & "','" & Request.Form("fby") & "','" & Request.Form("telefon") & "','" & Request.Form("email") & "','" & Request.Form("fornavn") & "','" & Request.Form("dato") & "','" & holdnummer & "'  )"
conn.execute(strSQL)

'Opdater antal tilmeldte i hold tabellen

SQL = "update hold set tilmeldte = tilmeldte + 1 where id = " & id
Conn.Execute(SQL)


'Kode som sender mailen her:

if Request.Form("adresse") <> "" then
  Dim Mailer
  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

  ' Her sættes afsender navn og e-mail adresse
  Mailer.FromName  = "Tilmelding slsk.dk"
  Mailer.FromAddress= ""

  ' Afsenders mailserver RETTES TIL
  Mailer.RemoteHost = ""

  ' Her sættes modtager navn og e-mail adresse
  Mailer.AddRecipient "" & Request.Form("efternavn"), Request.Form("email")

  ' Her sættes overskriften på mailen
  Mailer.Subject    = "Du er tilmeldt hold " & holdnavn& VbCrLf  & holdnummer

  ' Her sættes selve teksten til mailen
  Mailer.BodyText  = "Kære " & Request.Form("efternavn") & VbCrLf &  VbCrLf &"Du er tilmeldt dig: " & VbCrLf & VbCrLf &"Holdnavn: " & holdnavn & VbCrLf & "Holdnummer: " &  holdnummer & VbCrLf & "Ugedag: " & dag & VbCrLf & "Starttid: " & tider & VbCrLf & "Sluttid: " & slut & VbCrLf & "Instruktør:  "& instruk & VbCrLf & "Pris:  "& pris & VbCrLf & VbCrLf & "Tak for din tilmelding, du vil modtage et girokort snarest. Vi glæder os til at se dig/jer" & VbCrLf & VbCrLf &" Med venlig hilsen slsk.dk"




  ' Send e-mail og skriv status
  if Mailer.SendMail then
    Response.Write ""
  else
    Response.Write "Der skete en fejl: " & Mailer.Response
  end if

  ' Fjern objekt igen
  Set Mailer = Nothing
end if


response.write "Du er tilmeldt holdet " & holdnavn & " og du modtager en email om lidt. Hilsen Slangerup svømmeklub."

response.End 'stopper koden her
end if


'Viser formen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={MySQL};SERVER=mysql.slsk.dk;" &_
"DATABASE=slsk;UID=slsk;PWD=XQfj8646;"
Conn.Open DSN


strSQL = "Select * From hold Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

%>

Holdnavn: <%=rs("holdnavn")%>
<BR><BR>
Instruktør:<%=rs("instruktør")%>
<BR><BR>
Holdnummer:<%=rs("holdnr")%>
<BR><BR>
Tider:<%=rs("tider")%>
<BR><BR>
Dag:<%=rs("dag")%>
<BR><BR>
Holdantal:<%=rs("holdantal")%>
<BR><BR>
Tilmeldte: <%=rs("tilmeldte")%><BR><BR>
Pris <%=rs("pris")%><BR><BR>


<BR><BR><BR><hr>

<B>Tilmeldingsblanket</B>
<BR><BR><BR>


<form action="tilmelding.asp" method="post">
<input type="hidden" name="id" value="<%=Request.Querystring("id")%>">

1. Forældres navn <input type="text"  name="efternavn" size="17"><BR>
<BR><BR>
2. Forældres navn <input type="text"  name="for2" size="17"><BR>
<BR><BR>
adresse: <input type="text"  name="adresse" size="17"><BR>
<BR><BR>
postnr: <input type="text"  name="postnr" size="17"><BR>
<BR><BR>
by: <input type="text"  name="fby" size="17"><BR>
<BR><BR>
telefon: <input type="text"  name="telefon" size="17"><BR>
<BR><BR>
email:  <input type="text"  name="email" size="17"><BR>
<BR><BR>
fornavn: <input type="text"  name="fornavn" size="17"><BR>
<BR><BR>
fødelsesdato:  <input type="text"  name="dato" size="17"><BR>
<BR><BR>

<input type="submit" value="tilmeld" name="send" class="knap" >