Hvordan laver jeg en checkbox m. der SKAL afkryse?

Jeg har indsat en checkbox i min formular til godkend af regler. Brugeren skal skal godkende dem ved at afkryse en checkbox. Sådanne ser min checkbox ud jeg har indsat:


<input type="checkbox" name="Regler" value="checked">


Det sendes så til en anden fil der behandler, godkender den og derefter sender informationerne til databasen. Den ser sådanne ud:


<%
Fornavn = Request.Form("Fornavn")
Efternavn = Request.Form("Efternavn")
Adresse = Request.Form("Adresse")
Post = Request.Form("Post")
Bynavn = Request.Form("Bynavn")
Tlf = Request.Form("Tlf")
Email = Request.Form("Email")
Password = request.form("Password")
Passwordconfirm = Request.Form("Passwordconfirm")

Omraade = Request.Form("Omraade")
Amt = Request.Form("Amt")
Antal = Request.Form("Antal")
Opfort = Request.Form("Opfort")
Grundareal = Request.Form("Grundareal")
Storelse = Request.Form("Storelse")
Soverum = request.form("Soverum")
Strand = Request.Form("Strand")
Indkob = Request.Form("Indkob")
Beskrivelse = Request.Form("beskrivelse")

Parabol = Request.Form("parabol")
Barnestol = Request.Form("barnestol")
Bruser = Request.Form("bruser")
Pool = Request.Form("Pool")
Carport = Request.Form("carport")
Stereo = Request.Form("stereo")
Elkedel = Request.Form("Elkedel")
Sauna = Request.Form("sauna")
El = Request.Form("el")
Cykler = Request.Form("cykler")
Tv = Request.Form("tv")
Emhette = Request.Form("emhette")
Solarium = Request.Form("solarium")
Husdyr = Request.Form("husdyr")
Grill = Request.Form("grill")
Video = Request.Form("video")
Fryser = Request.Form("fryser")
Spabad = Request.Form("spabad")
Vaskemaskine = Request.Form("vaskemaskine")
Havestole = Request.Form("havestole")
Kaffemaskine = Request.Form("kaffemaskine")
Stovsuger = Request.Form("stovsuger")
Terrasse = Request.Form("terrasse")
Komfur = Request.form("KOmfur")
Torretumbler = Request.Form("torretumbler")
Koleskab = Request.Form("Koleskab")
Braendeovn = Request.Form("braendeovn")
Mikroovn = Request.Form("mikroovn")
Opvask = Request.Form("opvask")
EngPriser = request.form("EngPriser")
EngBeskrivelse = request.form("EngBeskrivelse")

Priser = request.form("Priser")
if Omraade = "" then
        Omraade = "Ikke angivet"
end if
if Opfort = "" then
        Opfort = "Ikke angivet"
end if
if Grundareal = "" then
        Grundareal = "Ikke angivet"
end if
if Storelse = "" then
        Storelse = "Ikke angivet"
end if
if Soverum = "" then
        Soverum = "Ikke angivet"
end if
if Strand = "" then
        Strand = "Ikke angivet"
end if
if Indkob = "" then
        Indkob = "Ikke angivet"
end if
if Beskrivelse = "" then
        Beskrivelse = "Ikke angivet"
end if
if engBeskrivelse = "" then
        engBeskrivelse = "None"
end if
if engprsier = "" then
        engpriser = "None"
end if

'checkboxe
if Parabol = "" then
        Parabol = " "
end if
if Barnestol = "" then
        Barnestol = " "
end if
if Bruser = "" then
        Bruser = " "
end if
if Pool = "" then
        Pool = " "
end if
if Carport = "" then
        Carport = " "
end if
if Stereo = "" then
        Stereo = " "
end if
if Elkedel = "" then
        Elkedel = " "
end if
if Sauna = "" then
        Sauna = " "
end if
if El = "" then
        El = " "
end if
if Cykler = "" then
        Cykler = " "
end if
if Tv = "" then
        Tv = " "
end if
if Emhette = "" then
        Emhette = " "
end if
if Solarium = "" then
        Solarium = " "
end if
if Husdyr = "" then
        Husdyr = " "
end if
if Grill = "" then
        Grill = " "
end if
if Video = "" then
        Video = " "
end if
if Fryser = "" then
        Fryser = " "
end if
if Spabad = "" then
        Spabad = " "
end if
if Vaskemaskine = "" then
        Vaskemaskine = " "
end if
if Havestole = "" then
        Havestole = " "
end if
if Kaffemaskine = "" then
        Kaffemaskine = " "
end if
if Stovsuger = "" then
        Stovsuger = " "
end if
if Terrasse = "" then
        Terrasse = " "
end if
if Torretumbler = "" then
        Torretumbler = " "
end if
if Koleskab = "" then
        Koleskab = " "
end if
if Braendeovn = "" then
        Braendeovn = " "
end if
if Mikroovn = "" then
        Mikroovn = " "
end if
if Opvask = "" then
        Opvask = " "
end if
if priser = "" then
        Priser = "Ikke angivet"
end if
if Komfur = "" then
        Komfur = " "
end if

if tlf = "" then
        tlf = "Ikke angivet"
end if

if Fornavn = "" then
        response.write "Fornavn <u>skal</u> udfyldes!<br><a href='java script:self.history.go(-1)'>Gå tilbage og udfyld <u>hele</u> formen</a>"   

elseif Efternavn = "" then
        response.write "Efternavn <u>skal</u> udfyldes!<br><a href='java script:self.history.go(-1)'>Gå tilbage og udfyld <u>hele</u> formen</a>"
elseif Adresse = "" then
        response.write "Adressefeltet <u>skal</u> udfyldes!<br><a href='java script:self.history.go(-1)'>Gå tilbage og udfyld <u>hele</u> formen</a>"
elseif Post = "" then
        response.write "Post nummer <u>skal</u> udfyldes!<br><a href='java script:self.history.go(-1)'>Gå tilbage og udfyld <u>hele</u> formen</a>"
elseif Bynavn = "" then
        response.write "Bynavn <u>skal</u> udfyldes!<br><a href='java script:self.history.go(-1)'>Gå tilbage og udfyld <u>hele</u> formen</a>"
elseif Email = "" then
        response.write "Email <u>skal</u> udfyldes, da informationer om oprettelse bliver sendt til denne adresse!<br><a href='java script:self.history.go(-1)'>Gå tilbage og udfyld <u>hele</u> formen</a>"
elseif password = "" then
        response.write "Kodeord <u>skal</u> udfyldes<br><a href='java script:self.history.go(-1)'>Gå tilbage og udfyld <u>hele</u> formen</a>"
elseif password <> passwordconfirm then
        response.write "Kodeord og Bekræft kodeord er ikke ens. <br><a href='java script:self.history.go(-1)'>Gå tilbage og prøv igen</a>"
else
%>
        <!-- #include file="sqlconn.asp" -->
        <%
Dim objRS

Call OpenDataBase("sommerhus.mdb")

Set objRS = objConn.Execute("INSERT INTO Sommerhus (Fornavn, Efternavn, Adresse, Postnr, Bynavn, Tlf, Email, Kodeord, Omraade, Amt, Antal, Opfort, Grundareal, Storelse, Soverum, Strand, Indkob, Beskrivelse, Parabol, Barnestol, Bruser, pool, Carport, Stereo, Elkedel, Sauna, El, Cykler, Tv, Emhette, Solarium, Husdyr, Grill, Video, Fryser, Spabad, Vaskemaskine, Havestole, Kaffemaskine, Stovsuger, Terrasse, Komfur,  Torretumbler, Koleskab, Braendeovn, Mikroovn, Opvask, Priser, engpriser, engbeskrivelse) values('" & Fornavn & "','" & Efternavn & "','" & Adresse & "','" & post &"','" & Bynavn & "','" & Tlf & "','" & Email & "','" & Password & "','" & Omraade & "','" & Amt & "','" & Antal & "','" & Opfort & "','" & Grundareal & "','" & Storelse & "','" & Soverum & "','" & Strand & "','" & Indkob & "','" & Beskrivelse & "','" & Parabol & "','" & Barnestol & "','" & Bruser & "','" & Pool & "','" & Carport & "','" & Stereo & "','" & Elkedel & "','" & Sauna & "','" & El & "','" & Cykler & "','" & Tv & "','" & Emhette & "','" & Solarium & "','" & Husdyr & "','" & Grill & "','" & Video & "','" & Fryser & "','" & Spabad & "','" & Vaskemaskine & "','" & Havestole & "','" & Kaffemaskine & "','" & Stovsuger & "','" & Terrasse & "','" & Komfur & "','" & Torretumbler & "','" & Koleskab & "','" & Braendeovn & "','" & Mikroovn & "','" & Opvask & "','" & Priser & "','" & engPriser & "','" & engbeskrivelse & "')")

response.write "Dit sommerhus er nu gemt, og venter på at blive godkendt af FerieGuide.com.<br><br>Der er sendt en mail til " & Email & " med brugernavn og kode samt nødvendige oplysninger."

Set JMail = Server.CreateObject("JMail.SMTPMail")
jMail.ServerAddress = "mail.ferieguide.com"  '********************
JMail.Sender = "webmaster@ferieguide.com"
JMail.SenderName = "FerieGuide.com" 'Fra-feltet i emailen  **************
JMail.Subject = "Oprettelse af sommerhus på FerieGuide.com"
strBody = "Velkommen til FerieGuide.com  Her er kodeord og brugernavn til at logge ind på din profil med. I din profil har du mulighed for at tilføje billeder og rette i dine oplysninger for dit sommerhus." & vbCrLf & vbCrLf
strBody = strBody & "Kodeord og brugernavn. Klik her for at logge ind på din profil http://ferieguide.com/Login.asp" & vbCrLf
strBody = strBody & "Brugernavn: " & Fornavn & vbCrLf
strBody = strBody & "Kodeord:    " & password & vbCrLf & vbCrLf
strBody = strBody & "Vi takker for din tilmelding og håber du vil få glæde af FerieGuide.com  Skulle du have spørgsmål kan du skrive til webmaster@ferieguide.com" & vbCrLf & vbCrLf
strBody = strBody & "Med venlig hilsen" & vbCrLf & vbCrLf
strBody = strBody & "FerieGuide.com"
JMail.Body = strBody
JMail.AddRecipient email
intRetval = JMail.Execute
set Jmail = nothing


Call CloseDataBase
end if
%>


Håber der er en der vil hjælpe med at få det til at kører optimalt...TAK