checkboxe og accessdatabaser
Hej...Jeg har en side hvor man skal bruge en checkbox for at bestemme om en række i min tabel skal vises...
Men hvordan får jeg den s.... checkbox-værdi ned i min tabel?
Min side ser sådan ud:
www.bandholmsejlklub.dk/2fi/tilfoej.asp
<-- tilfoej.asp -->
<%
If Request.Form("Add") <> "" Then
strError = ""
strEmne = Trim(Request.Form("Emne"))
strUdvalg = Trim(Request.Form("Udvalg"))
strVis = Trim(Request.Form("Vis"))
strBeskrivelse = Trim(Request.Form("beskrivelse"))
arr = split(strBeskrivelse," ")
for i = lbound(arr) to ubound(arr)
If Len(arr(i)) > 25 then
strError = "Et ord må kun indeholle 25 tegn!"
End If
next
If Len(strEmne) = 0 Then
strError = "Du skal skrive et emne!"
ElseIf Len(strUdvalg) = 0 Then
strError = "Du skal skrive et udvalg!"
ElseIf Len(strBeskrivelse) = 0 Then
strError = "Du skal skrive lidt om arrangementet!"
End If
If Len(strError) = 0 Then
Set rstemp = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tabel WHERE (ID = 0)"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../log/database.mdb")
rstemp.Open strSQL, strDSN, 1, 3
If (rstemp.BOF Or rstemp.EOF) Then
rstemp.AddNew
rstemp("Vis") = RemoveHTML(strVis)
rstemp("Emne") = RemoveHTML(strEmne)
rstemp("Udvalg") = RemoveHTML(strUdvalg)
rstemp("Beskrivelse") = Replace(RemoveHTML(strBeskrivelse), vbCrLf, "<br>")
rstemp.Update
End If
rstemp.Close
Set rstemp = Nothing
Response.Redirect("kalender.asp")
Else
strError = "<p><font face=verdana size=1 color=#FFFFFF><b>"& strError &"</b></font></p>"
strMode = "add"
End If
End If
%>
<!--#include file="function.asp"-->
<html>
<head>
<title>Bandholm Sejlklub - Bestyrelsen - Meddelelser - Tilføj</title>
<!--#include virtual = "/style.css"-->
</head>
<body>
<h2><u>Meddelelse:</u></h2>
<br><center>
<table cellpadding=2 cellspacing=2 border=1 bordercolor=black class=format width="500">
<tr>
<td width="100%" colspan="3">
<br>
<form method="POST" action="tilfoej.asp">
<div align="center">
<center>
<table border="0" width="75%" cellspacing="0" cellpadding="0" height="223">
<tr>
<td width="100%" height="25"><%=strError%>
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Emne:</font><br>
<input type="text" name="Emne" size="28" class="box" tabindex="2" value="<%=strEmne%>">
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Udvalg:</font><br>
<input type="text" name="Udvalg" size="28" class="box" tabindex="3" value="<%=strUdvalg%>">
</td>
</tr>
<tr>
<td width="100%" height="21"><font face="Verdana" size="2">Skal meddelelsen vises:</font><br>
<input type="checkbox" name="Vis" tabindex="4" value="<%=strVis%>" checked>
</td>
</tr>
<tr>
<td width="100%" height="62"><font face="Verdana" size="2">Beskrivelse af arrangementet:</font><br>
<textarea rows="8" name="Beskrivelse" cols="45" class="scrollbarbox" tabindex="5">
<%=strBeskrivelse%></textarea>
</td>
</tr>
<tr>
<td width="100%" height="46"><br>
<input type="submit" value=" Send " name="Add" class="box" tabindex="6">
<input type="button" value=" Fortryd " name="Annuller" class="box" onClick="java script:location.href='meddel.asp'" tabindex="7">
</td>
</tr>
</table>
</center>
</div>
</form>
<br></td></tr>
</table></div>
</body>
</html>
Er der nogen der kan hjælpe mig med at flette den checkbox ordentlig ind??
