Tjekkede Checkboxes ?????
Hej EksperterJeg er ved at lave en e handel ....
Jeg er nu ved at lave "kassen"
Det er meningen den skal liste alle de produkter
en pågældende bruger har bestilt ....
Jeg har problemer med at få udskrevet værdierne
af mine checkboxe men det ER altså meningen at
når en checkbox er tjekket så skal den pågældende
poster slettes fra ordredatabasen og dem der ikke
er tjekket de skal jo ikke slettes.
Hvordan gør jeg dette ?
LINK:
http://iceb.ljnet.dk/flash/kasse.asp
EKSEMPEL:
HTML check box -----
request.form("checkbox")
if checkbox=checked then
DELETE FROM ehandelsordrer WHERE brugernavn=iceb
else
HER ER HELE DEN NUVÆRENDE KILDEKODE:
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
1 lister billeder med produktnavne fra db<br>
2 generer dyn asp med produktnavn billede og beskrivelse<br>
3 kasse lister total med send ordre<br>
4 kvitering med udskiv og send ordre<br>
Knapper:<br>
Knap1 Gem ordre til senere<br>
Knap2 Luk vindet<br>
Knap3 Læg i kurv<br>
Knap4 Gå til kassen<br>
Kassen<br>
Knap5 Send bestilling<br>
Knap6 Se kvitering<br>
Knap7 Udskriv <br><br>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * FROM ehandelsordrer"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
cb=1
t=1
' Gennemløb Recordset (rs) med en løkke
Do
' Udskriv værdien af kolonnen
%>
%>
<FORM METHOD=POST ACTION="kasse.asp">
Ordre nummer
<%
response.write t&"."
%>
Marker dette felt for at slette ordren<INPUT TYPE=checkbox NAME="checkbox<% response.write cb %>" VALUE="Y"><br>
<%
t= 1 + t
cb= 1 + cb
Response.Write "brugernavn."&rs("brugernavn") & "<br>"
Response.Write "navn."&rs("produktnavn") & "<br>"
Response.Write "kr."& rs("produktpris") & "<br>"
Response.Write "dato."& rs("tiddato") & "<br>"
Response.Write "id."& rs("id") & "<br>"
geb=100
i=geb + rs("produktpris")
Response.Write "porto og gebyr="& geb& "<br>"
Response.Write "kr."& rs("produktpris") & "<br><br>"
%>
</a>
<br><br><a href="java script:window.print()">Udskriv</a><br><br>
<INPUT TYPE=hidden NAME=userid VALUE=web>
<br><br><a href="java script: self.close()">Luk</a
<br><br><br>
<%
request.form ("checkbox")& cb
response.write request.form ("checkbox")& cb
if request.form ("checkbox") & cb=checked then
response.write "TJEKKET OG FEDT"
else
response.write " "
end if
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<br><INPUT TYPE="submit" VALUE="Slet">
</form>
</body>
</html>
if
