skift fra tabel til tabel og send en mail

jeg har to tabellen "tilmeling" "venteliste" de har de samme felter så når holdet er fyldt op kommer man på ventelisten.  godt så bliver der en ledig plads og vi skal have flyttet personen fra venteliste tabellen op i tilmelding. helst ved et klik plus når man gør det skal der sendes en mail til personen hvor der står at nu er de kommet på holdet ! den er pæn vild..

her kan du se hvordan jeg lister tilmeldte og ventelister ud på en side.. der skal tilføjes et link ligesom "slet" "ret" under ventelisten så når man trykker på den laver den alt det jeg lige har skrevet :

strSQL = "Select * From tilmelding Where `holdnr` = " & Request.Querystring("id")

Set rs = DataConn.Execute(strSQL)
strNavn ="slet"
%>


<%
Response.write "<table cellpadding='4' cellspacing='0'>"
Response.write "<tr><td bgcolor='#FFCD32'><b>1. Forældres navn</td><td bgcolor='#FFCD32'><b>2. Forældres navn</td><td bgcolor='#FFCD32'><b>Adresse</td><td  bgcolor='#FFCD32'><b>Postnr</td><td  bgcolor='#FFCD32'><b>By</td><td  bgcolor='#FFCD32'><b>Telefon</td><td  bgcolor='#FFCD32'><b>Email</td><td  bgcolor='#FFCD32'><b>Barnets navn</td><td  bgcolor='#FFCD32'><b>Fødselsdato</td> <td  bgcolor='#FFCD32'><b>Holdnr</td> </tr> <tr>"
if rs.bof or rs.eof then
  response.write "<b><font color='#ff0000'>Der er ingen tilmeldte til dette hold endnu!</b><br><br>"
else
  Do While Not rs.EOF

  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("efternavn")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("for2")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("adresse")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("postnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("fby")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("telefon")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write "<a href=""mailto:" & rs("email") & """>" & rs("email") & "</a>"
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("fornavn")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("dato")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdnr")
 
  Response.write "</td>"
  Response.write "</tr>"
rs.MoveNext
Loop
end if
Response.Write "</table>"
DataConn.Close
Set DataConn = Nothing
%>
<BR><BR><BR>
<FONT SIZE="3" COLOR=""><B>Ventelisten</B></FONT><BR><BR>
<%

SQLserveradr="" 
SQLdatabase="_dk"
SQLlogin="_dk"
SQLpassword=""
Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr



strSQL = "Select * From venteliste Where `holdnr` = " & Request.Querystring("id")

Set rs = DataConn.Execute(strSQL)
strNavn ="slet"
%>


<%
Response.write "<table cellpadding='4' cellspacing='0'>"
Response.write "<tr><td bgcolor='#FFCD32'><b>1. Forældres navn</td><td bgcolor='#FFCD32'><b>2. Forældres navn</td><td bgcolor='#FFCD32'><b>Adresse</td><td  bgcolor='#FFCD32'><b>Postnr</td><td  bgcolor='#FFCD32'><b>By</td><td  bgcolor='#FFCD32'><b>Telefon</td><td  bgcolor='#FFCD32'><b>Email</td><td  bgcolor='#FFCD32'><b>Barnets navn</td><td  bgcolor='#FFCD32'><b>Fødselsdato</td> <td  bgcolor='#FFCD32'><b>Holdnr</td> <td  bgcolor='#FFCD32'><b>Slet</td></tr> <tr>"
if rs.bof or rs.eof then
  response.write "<b><font color='#ff0000'>Der er ingen tilmeldte til dette hold endnu!</b><br><br>"
else
  Do While Not rs.EOF

  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("efternavn")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("for2")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("adresse")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("postnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("fby")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("telefon")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write "<a href=""mailto:" & rs("email") & """>" & rs("email") & "</a>"
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("fornavn")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("dato")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"

  Response.write "<a href=""slett.asp?id=" & rs("Id") & """ onclick=""return window.confirm('Vil du slette');"">"& strNavn & "</a>"
  Response.write "</td>"
  Response.write "</tr>"
rs.MoveNext
Loop
end if
Response.Write "</table>"
DataConn.Close
Set DataConn = Nothing

her er den kode jeg bruger når man sender en alm tilmelding ud den kan vi vel genbruge lidt ?


id = Request.Form("id")
SQL = "select * from hold where id = " & id
set rs = DataConn.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, forfos1, for2, forfos2, adresse, postnr, fby, telefon, email, fornavn, dato, holdnr) values('" & Request.Form("efternavn") & "','" & Request.Form("forfos1") & "','" & Request.Form("for2") & "','" & Request.Form("forfos2") & "','" & Request.Form("adresse") & "','" & Request.Form("postnr") & "','" & Request.Form("fby") & "','" & Request.Form("telefon") & "','" & Request.Form("email") & "','" & Request.Form("fornavn") & "','" & Request.Form("dato") & "','" & holdnummer & "'  )"
DataConn.Execute(strSQL)

'Opdater antal tilmeldte i hold tabellen

SQL = "update hold set tilmeldte = tilmeldte + 1 where id = " & id
DataConn.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= "svommeleder@slsk.dk"

  ' Afsenders mailserver RETTES TIL
  Mailer.RemoteHost = "mail.slsk.dk"

  ' 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 & "Tilmeldtes navn: " & Request.Form("fornavn") & 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 & ". <br><br> <I>(Hvis du ikke modtager en email om lidt, kontakt venligst<a href='mailto:webmaster@slsk.dk'> webmaster@slsk.dk</a>, men inden du gør det check lige om mailen ligger i din spammappe, tak)</I>. '<br><br>Hilsen Slangerup svømmeklub.<br>"

response.End 'stopper koden her
end if


'Viser formen
SQLserveradr="..dk"
SQLdatabase=""
SQLlogin=""
SQLpassword=""
Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr


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

%><center><B>Holdet du er ved at tilmelde dig</B><BR><BR>
<TABLE cellpadding="4" cellspacing="0">
<TR>
    <TD>Holdnavn:</TD>
    <TD> <%=rs("holdnavn")%></TD>
</TR>
<TR>
    <TD>Holdnr:</TD>
    <TD><%=rs("holdnr")%></TD>
</TR>
<TR>
    <TD>Starttid:</TD>
    <TD><%=rs("tider")%></TD>
</TR>
<TR>
    <TD>Sluttid:</TD>
    <TD><%=rs("sluttid")%></TD>
</TR>
<TR>
    <TD>Dag:</TD>
    <TD><%=rs("dag")%></TD>
</TR>
<TR>
    <TD>Instruktør:</TD>
    <TD><%=rs("instruktør")%> </TD>
</TR>
<TR>
    <TD>Pris</TD>
    <TD><%=rs("pris")%></TD>
</TR>

</TABLE>



<BR>

<B>Tilmeldingsblanket</B>
<BR>

<SCRIPT LANGUAGE="JavaScript">
function Check_Form(theForm) {
  err = '';
 

  if (theForm.adresse.value == '') {
    err += "Adressen mangler\r";
  }
  if (theForm.postnr.value == '') {
    err += "Postnr mangler\r";
  }
  if (theForm.fby.value == '') {
    err += "By mangler\r";
  }
  if (theForm.telefon.value == '') {
    err += "Telefon mangler\r";
  }
  if (theForm.fornavn.value == '') {
    err += "Svømmers mangler\r";
  }
  if (theForm.dato.value == '') {
    err += "Fødelsdato mangler\r";
  }
  if (theForm.email.value == '') {
    err += "E-mail mangler\r";
  } else {
    ema = theForm.email.value;
    pos1 = ema.indexOf('@',0);
    pos2 = ema.indexOf('.',pos1);
    str = ema.substring(ema.length-1,ema.length+1);
    if (pos1 < 0 || pos2 < 0 || str == '.') {
    theForm.email.style.color = '#FFFFFF';
    theForm.email.style.backgroundColor = '#FF0000';
    err += "E-mail ikke gyldig\r";
  }
}
if (err != ''){
  alert('Følgende felter mangler at blive udfyldt:\r' + err);
  return (false);
} else {
  return (true);
}
} 
</script>
<BR><B>VIGTIGT!</B> Hvis du er ved at tilmelde dig Muslinge eller Krabbe holdene, skal du udfylde forældre felterne med navn og fødselsdato på den/de forældre der skal med i vandet.<BR><BR>
<form action="tilmelding.asp" method="post" onsubmit="return Check_Form(this)">
<input type="hidden" name="id" value="<%=Request.Querystring("id")%>">

<TABLE>
<TR>
    <TD>1. Forældres navn:<FONT SIZE="1" COLOR="#ff00000">*</FONT> </TD>
    <TD><input type="text"  name="efternavn" size="30"></TD>
</TR>
<TR>
    <TD>1. Forældres Fødselsdato<FONT SIZE="1" COLOR="#ff00000">*</FONT> </TD>
    <TD><input type="text"  name="forfos1" size="30"></TD>
</TR>
<TR>
    <TD>2. Forældres navn :</TD>
    <TD><input type="text"  name="for2" size="30"></TD>
</TR>
<TR>
    <TD>2. Forældres fødselsdato :</TD>
    <TD><input type="text"  name="forfos2" size="30"></TD>
</TR>
<TR>
    <TD>Svømmerens navn:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="fornavn" size="30"></TD>
</TR>
<TR>
    <TD>Fødselsdato:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD> <input type="text"  name="dato" size="8">(10122002)</TD>
</TR>
<TR>
    <TD>Adresse:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="adresse" size="30"></TD>
</TR>
<TR>
    <TD>Postnr:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="postnr" size="4"></TD>
</TR>
<TR>
    <TD>By:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="fby" size="30"></TD>
</TR>
<TR>
    <TD>Telefon:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="telefon" size="8"></TD>
</TR>
<TR>
    <TD>Email:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="email" size="30"></TD>
</TR>

</TABLE>

<BR><BR><center>
<input type="submit" value="Tilmeld" name="send" class="knap">
</form>