remo: checkbox problem

hallo zusammen, zuerst bin ein blutiger anfänger....aber die freude an asp wächst ......zuerst mal mein code:

<%@ LANGUAGE="VBscript" %>
<HTML>
<HEAD>
<TITLE>DATABASE SELECT</TITLE>
</HEAD>
<BODY bgcolor="#99a663" text="black" link="#c4d4a2" vlink="#c4d4a2" alink="#c4d4a2" leftmargin="0" marginheight="0" marginwidth="0" topmargin="0">

<h1>vorhandene Einträge</h1>

<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRecord = Server.CreateObject("ADODB.Recordset")

' Connection Open
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=F:/innovaosft/projekte/openair/webplattform/DB/OpenAirDaten.mdb; " & _
"Persist Security Info=False"

' Recordset Open
objRecord.Open "SELECT ad.Nachname, ad.Vorname, ad.Adressart, ak.Ansprechsperson, ak.Visaband, ak.Baendel , ak.takeTicket " & _
"FROM tabAdresse ad, tabAkkreditierung ak " & _
"WHERE ad.AdressenNr = ak.AdressenNr and ad.Adressart in('S','M','P','L')", objConn, adOpenDynamic, adLockOptimistic, adCmdText
%>

<% If request("REQUEST_METHOD") <> "POST" then %>

<FORM ACTION="database11.asp" METHOD="post">
<TABLE BORDER=1>
<TR>
<TH>Status</TH>
<TH>Nachname</TH>
<TH>Vorname</TH>
<TH>Ansprechsperson</TH>
<TH>Visaband</TH>
<TH>Anzahl Bändel</TH>
<TH>take ticket</TH>
<TH>Ticket abgeholt</TH>

</TR>
<% Do Until (objRecord.EOF Or line > 20) %>
<TR>
<TD><%= objRecord("Adressart") %><BR></TD>
<TD><%= objRecord("Nachname") %><BR></TD>
<TD><%= objRecord("Vorname") %><BR></TD>
<TD><%= objRecord("Ansprechsperson") %><BR></TD>
<TD><%= objRecord("Visaband") %><BR></TD>
<TD><%= objRecord("Baendel") %><BR></TD>
<TD><%= objRecord("takeTicket") %><BR></TD>
<TD><input type="Checkbox" name="boxtake" value="True"><BR></TD>
<% If objRecord("takeTicket") = "True" Then boxtake = -1 else boxtake = 0 End if %>

</TR>
<%
objRecord.MoveNext
line = line + 1
loop
objRecord.Close
objConn.Close
%>

</TABLE>
<INPUT TYPE="submit" VALUE="SUBMIT">
</FORM>

<hr>
<br>
<a href="database1.html">Back</a>

<% Else

objRecord.Close
' Recordset Open
objRecord.Open "SELECT ad.Nachname, ad.Vorname, ad.Adressart, ak.Ansprechsperson, ak.Visaband, ak.Baendel , ak.takeTicket " & _
"FROM tabAdresse ad, tabAkkreditierung ak " & _
"WHERE ad.AdressenNr = ak.AdressenNr and ad.Adressart in('S','M','P','L')", objConn, adOpenDynamic, adLockOptimistic, adCmdText

Do Until (objRecord.EOF Or line > 20)

' Insert Start
objRecord.AddNew
objRecord.Fields("takeTicket") = Request.Form("boxtake")
objRecord.Update

objRecord.MoveNext
line = line + 1

loop
objRecord.Close
objConn.Close
%>
<h1>Thank You</h1>

<% End If %>

</BODY>
</HTML>

und dort hackt's bei mir als anfänger:

1. wie kann den wert eines JA/NEIN feldes in access, in html auch als wert in form einer checkbox anzeigen ? wenn ich den checkboxnamen zuweise wird im feld in html einfach true oder false und keine checkbox angezeigt:-( hab mal versucht es mit einm if versucht den wert abzufragen und anschliessend zu setzen, aber geht auch nicht.

2.in diesen asp fiel hab ich ja am anfang eine checkbox definiert und will nun den vom user gewählten wert in ein JA/NEIN feld in eine access db schreiben, aber das gestaltet sich schwieriger als ich dachte :-(

objRecord("takeTicket") = Request.Form("checkboxName") ist wohl falsch.

ach für sonstige anregungen und tipps, bin ich dankbar!!!
herzlichen schon im voraus für eure mühe und hilfe
grüsse aus der schweiz ray

  1. Hallo Ray,

    zu Problem1:

    Es müsste gehen wenn du schreibst

    <TD>
    <%If objRecord("takeTicket") = "True" Then %>
    <input type="Checkbox" name="boxtake" value="True" checked><BR></TD>
    <% else %>
    <input type="Checkbox" name="boxtake" value="True"><BR></TD>
    <%End if %>

    zu Problem2:

    das könnte evtl. klappen, möglicherweise bringt Access auch einen Fehler, da der Wert des Formularfeldes ja ein String und kein boolean (Ja/Nein-Wert) ist.

    Außerdem solltest Du eine Fehlerbehandlung einbauen, da boxtake als Parameter nur dann an die Seite übergeben wird, wenn die Checkbox angeklickt ist.

    Gruß

    Ralf