hjælp til formular.

Jeg har denne formular , som sender data til en database + der bliver sendt en Jmail til webmaster som fortæller at der er ny data i databasen.

jeg har prøvet at lave en ja/nej radio funktion(som spørger om man vil deltage på en anden hjemmeside) i min formular, som gerne skulle sende et ja/nej svar med i Jmailen.

Hvem kan hjælpe mig ??

******* formular opretdp.asp ********

<center>
  <table border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" width="60%">
  <form action="opretdp_ac.asp" method="post">
    <tr>
      <td width="60%" colspan="2" align="center" class="topbar" >Opret Dig Her</td>
    </tr>
    <tr>
      <td width="60%">Navn<br><input type="text" name="navn" size="50"></td>
    </tr>
    <tr>
      <td width="60%">Adresse<br><input type="text" name="adresse" size="50"></td>
    </tr>
    <tr>
      <td width="60%">Postnr<br><input type="text" name="postnr" size="50"></td>
    </tr>
    <tr>
      <td width="60%">By<br><input type="text" name="city" size="50"></td>
    </tr>
    <tr>
      <td width="60%">Telefon nr.<br><input type="text" name="tlf" size="50"></td>
    </tr>
        <tr>
      <td width="60%">Mobil<br><input type="text" name="mobil" size="50"></td>
    </tr>
        <tr>
      <td width="60%">Email<br><input type="text" name="email" size="50"></td>
    </tr>
        <tr>
      <td width="60%">web<br><input type="text" name="web" size="50"></td>
    </tr>
        <tr>
      <td width="60%">Sted<br><input type="text" name="sted" size="50"></td>
    </tr>
        <tr>
      <td width="60%">Ledige pladser.<br><input type="text" name="lp" size="50"></td>
    </tr>
        <tr>
      <td width="60%">Nystartet dato<br><input type="text" name="nyd" size="50"> feks. 01-03-05</td>
    </tr>
    <tr>
    <td width="60%" >Tekst<br><textarea rows="5" name="tekst" cols="38"></textarea></td>
    </tr>
        <tr>
      <td width="60%">Brugernavn<br><input type="text" name="username" size="50"></td>
    </tr>
        <tr>
      <td width="60%">Password<br><input type="text" name="passw" size="50"></td>
    </tr>
        <tr>
      <td width="60%">Ønsker du at tilmelde dig De Private Dagplejere</td>
    </tr>
        <tr>
      <td width="60%"><input type="radio" value="ja">Ja - <input type="radio" value="nej">Nej</td>
    </tr>
    <tr>
      <td width="60%" colspan="2" align="center"  class="topbar">
    <input type="hidden" name="transfer" value="default.asp?emne=dpadmin" >
    <input type="hidden" name="pic1" value="dummie.jpg" >
    <input type="hidden" name="pic2" value="dummie.jpg" >
    <input type="hidden" name="pic3" value="dummie.jpg" >
  <input type="submit" value="Opret" name="tilmeld"><input type="reset" value="Fortryd" name="Fortryd"></td>
    </form>
    </tr>
   
  </table>
  </center>


******* database/jmail delen opretdp_ac.asp ********

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="databaseforbindelse.asp"-->
<%
' Declaring variables
Dim name, email, country, comments, data_source, con, sql_insert

' A Function to check if some field entered by user is empty
Function ChkString(string)
  If string = "" Then string = " "
  ChkString = Replace(string, "'", "''")
End Function

' Receiving values from Form
navn = ChkString(Request.Form("navn"))
adresse = ChkString(Request.Form("adresse"))
postnr = ChkString(Request.Form("postnr"))
city = ChkString(Request.Form("city"))
tlf = ChkString(Request.Form("tlf"))
mobil = ChkString(Request.Form("mobil"))
email = ChkString(Request.Form("email"))
web = ChkString(Request.Form("web"))
sted = ChkString(Request.Form("sted"))
lp = ChkString(Request.Form("lp"))
nyd = ChkString(Request.Form("nyd"))
username = ChkString(Request.Form("username"))
passw = ChkString(Request.Form("passw"))
tekst = ChkString(Request.Form("tekst"))
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("xx.mdb")
sql_insert = "INSERT INTO dpinfo (navn, adresse, postnr, city, tlf, mobil, email, web, sted, lp, nyd, username, passw, pic1, pic2, pic3, tekst, transfer) " & "VALUES ('" & navn & "','" & adresse & "','" & postnr & "','" & city & "','" & tlf & "','" & mobil & "','" & email & "','" & web & "','" & sted & "','" & lp & "','" & nyd & "','" & username & "','" & passw & "','" & Request.Form("pic1") & "','" & Request.Form("pic2") & "','" & Request.Form("pic3") & "','" & tekst & "','" & Request.Form("transfer") & "')"' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
'con.Execute sql_insert


Tekst = "Ny bruger til Alle de private dagplejere<br>" & vbcrlf
Tekst = Tekst & "Navn: " & navn & "<br />"
Tekst = Tekst & "Adresse: " & Adresse & "<br />"
Tekst = Tekst & "Postnr: " & Postnr & "<br />"
Tekst = Tekst & "By: " & City & "<br />"
Tekst = Tekst & "E-mail: " & email & "<br />"

call sendMail("rmo@pc.dk","Ny bruger","rmo@pc.dk","REMO","smtp.mail.dk","Ny bruger oprettet",Tekst)

'Se funktionen længere nede kaldes med :    call sendMail(afsender,afsNavn,modtager,modtNavn,smtpserver,subject,body)

' Done. Close the connection
con.close

'response.redirect "default.asp"


Function sendMail(afsender,afsNavn,modtager,modtNavn,smtpserver,subject,body)
'((((((((((((((((((((MAIL SENDES))))))))))))))))))))))))))
set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = afsender'"no_reply@aars.dk"'Afsenderens_email
msg.FromName = afsNavn
msg.AddRecipient modtager
msg.Subject = Subject
msg.Body = replace(body,vbcrlf,"<br>")
if not msg.Send(smtpserver) then' mail.directedit.dk
  Response.Write("Der er desværre opstået en fejl!<br>Prøv venligst igen senere.<br><br>" & msg.log & "<hr>")
  Else
  Response.write "Der er nu blevet sendt en meddelelse til " & modtNavn & " (" & modtager & ").<br><br>" & Besked_tilmelding & "</font>"
end if
'((((((((((((((((((((MAIL SENDES SLUT))))))))))))))))))))))))))
end function




%>