> > if Request("Checkbox") = "on" then
> > Einfuegewert = "1"
> > else
> > Einfuegewert = "0"
> > end if
>
> Das bringt aber nicht die Checkbox dazu was zu liefern, Gudula...
> Das ist nur der Auswerte-Code...
> Claudius
Wo nix iss, da kann auch nix geliefert werden, au�er man sagt: "liefere
Nix". Bei der Auswertung wird dann ja 0 geliefert. Mit diesem
Checkbox-Problem habe ich mich lange herumgeschlagen, da ich teilweise 15
Boxen und mehr im Formular bearbeiten muss.
Hab dann die Werte der Boxen in ein einziges Textfeld geschreiben, zum
auslesen und �ndern wieder gesplittet und neu upgedatet bzw. �bungshalber
als neuen DS anzulegen, weil ich dachte, dies ist immer noch besser, als 15
Tabellenfelder in der DB anzulegen. Bin mir allerdings nach wie vor nicht
sicher, ob dies wirklich besser ist und ich es so einsetzen soll. Hier mal
ein Beispielcode f�r 5 Checkboxen. Funktionierten tut das schon.
Mich w�rde einfach mal interessieren, ist es besser, 15 kleine Felder in der
Tabelle einzurichten (ja/nein)-Access oder solch ein Code?
<%@LANGUAGE="VBSCRIPT" %>
<%
Response.buffer = true
Response.write"<html><head><title>Untitled Document</title></head><body>" %>
<link rel="stylesheet" href="../pts.css" type="text/css">
<%
dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "MeineDSN"
' --- wenn insert
if Request("go") <> "" or Request("update") <> "" then
dim sql
dim ax(5),i
ax(0) = Request("gmp")
ax(1) = Request("glp")
ax(2) = Request("gcp")
ax(3) = Request("herstellung")
ax(4) = Request("qk")
ax(5) = Request("qm")
for i = 0 to 5
if ax(i) = "on" then
ax(i) = "1"
else
ax(i) = "0"
end if
varalles = ax(0) & "," & ax(1) & "," & ax(2) & "," & ax(3) & "," &
ax(4) &
"," & ax(5)
next
if Request("go") = "neu" then
sql = "insert into quick (alles) Values ('" & varalles & "')"
elseif Request("update") = "update" then
sql = "update quick set alles = '" & varalles & "' where bild =(select
Max(bild) from quick)"
end if
objConn.Execute( SQL )
Response.redirect("instringMemo.asp?aendern=1")
' --- ansonsten Ausgabe Formular aufgelisteten DS
elseif Request("aendern") <> "" then
dim rs
sql = "Select * from quick where bild = (Select Max(bild) from quick) "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, objConn, 3, 3
' --- Feld wo die Werte der Boxen einbetragen werden 0,1,0,1,1...
alles = rs("alles")
Response.write"<table><tr><td class=""randblau"">"
Response.write "Hier wird der String ausgegeben!<br><br>"
Response.write alles & "<br>und hier der letzte Datensatz "
Response.write "<span class=""spanrot"">" & rs("bild") &
"</span><br><br></td></tr><td class=""blau"">"
Response.write sql & "<br><br></td></tr></table>"
call check
Response.write"<table class=""randblau""><tr><td>"
Response.write strAussage & "<br></td><tr><td>"
Response.write"<h1>hier aendern</h1>"
Response.write "<form name=""form1"" method=""post""
action=""meineSeite.asp"">"
Response.write neuText
Response.write"<input type=""submit"" name=""update"" value=""update""
class=""kennung""> "
Response.write"<input type=""submit"" name=""go"" value=""neu""
class=""kennung"">"
Response.write"</form>"
Response.write"</td></tr></table><br><br>"
dim strCheck, Aussage, myArry, neuText, strAussage, alles,
strText,
strName
sub check
strText = alles
a=split(strText,",")
strName = "gmp,glp,gcp,herstellung,qk,qm"
b=split(strName,",")
dim a, b
for i = 0 to ubound(a)
if a(i) = "1" then
strCheck = "checked"
aussage = "<span class=""spangreen"">Dieses ist
aktiviert</span>"
else
strCheck = ""
aussage = "<span class=""spanblue"">Dieses ist nicht
aktiviert</span>"
end if
neuText = neuText & _
"<input type=""checkbox"" name=""" & b(i) & """
value=""on"""
neuText = neuText & strCheck & ">" & b(i) & "<br>"
strAussage = strAussage & b(i) & " " & aussage & "<br>"
next
end sub
rs.close
set rs=nothing
' -- Verbindung schlie�en
objConn.close
set objConn = Nothing
else %>
<form name="form1" method="post" action="meinSeite.asp">
<input type="checkbox" name="gmp" value="on">gmp<br>
<input type="checkbox" name="glp" value="on">glp <br>
<input type="checkbox" name="gcp" value="on">gcp<br>
<input type="checkbox" name="herstellung" value="on">herstellung<br>
<input type="checkbox" name="qk" value="on">qk<br>
<input type="checkbox" name="qm" value="on">qm<br>
<input type="submit" name="go" value="neu">
<a href="instringMemo.asp?aendern=1">ändern</a><br>
</form>
<%
end if
Response.write "</body></html>" %>
Herzliche Gr��e, Gudula
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
