Når følgende kode afvikles
<FORM ACTION="LaegIKurv.asp" METHOD="get"
NAME="Bestillingsform">
<TABLE width= 100% BORDER=1 CELLPADDING=1 CELLSPACING=1 UL
CLASS="Broedtxt">
<%
Response.Write "<TH ALIGN=Left>Vare foto</TH><TH
ALIGN=Left>Vare nr.</TH><TH ALIGN=Left>Varenavn</TH><TH
ALIGN=Left>Varebeskrivelse</TH><TH ALIGN=Left>Pris</TH><TH
ALIGN=Left>Køb</TH></TR>"
While Not objRS.EOF
Response.Write "<TR>"
Response.Write "<INPUT TYPE=hidden NAME=raekke VALUE="&i&">"
Response.Write "<TD><IMG SRC=" & objRS("Billede") & "></TD>"
Response.Write "<TD>" & objRS("Vare_Nr") & "</TD>"
Response.Write "<TD>" & objRS("VareNavn") & "</TD>"
Response.Write "<TD>" & objRS("Beskrivelse") & "</TD>"
Response.Write "<TD>" & objRS("VarePris") & "</TD>"
Response.Write "<TD><INPUT TYPE=checkBox
NAME=check"&i&"><INPUT TYPE=hidden VALUE=" & objRS("Vare_Nr")& "
Name=" & objRS("VareNavn") & "></TD></TR>"
i=i+1
objRS.MoveNext
Wend
objRS.close
Conn.close
Set objRS = Nothing
Set Conn = Nothing
%>
</TABLE>
</UL>
<CENTER>
<INPUT TYPE="reset" NAME="slet" VALUE=" Slet
alt">
<INPUT TYPE="submit" NAME="bestil" STYLE="WIDTH:200px"
VALUE=" Bestil ">
</CENTER>
</FORM>
</BODY>
</HTML>
kaldes
<% @ LANGUAGE = VBScript %>
<% Option Explicit
Dim nr, VareNum, VareNvn, item, tmpArray, tmpArray2
nr=0
While Request.QueryString("raekke" & nr)
response.write("øvlebøvle")
VareNum = Trim(Request.QueryString("Vare_Nr"))
VareNvn = Trim(Request.QueryString("VareNavn"))
If isNumeric(VareNum) And Request.QueryString("check" & nr) =
"on" Then
Session("LaegIKurv") = Session("LaegIKurv") &
Session("skilletegn") & VareNum & "," & VareNvn
nr = nr + 1
End If
Session("skilletegn") = "|"
Wend
Response.ContentType = "text/html"
%>
<HTML>
<HEAD>
<LINK REL=Stylesheet type="text/css"
href="/etc/StyleSheet.css">
</HEAD>
<UL CLASS="broedtxt">
Indholdet af din indkøbsvogn er nu:<BR>
<%
Response.Write(Request.QueryString) & "<BR>"
Response.Write "Vare: "& VareNvn & "<BR>"
Response.write "kurv : " & Session("LaegIKurv") & "<BR>"
tmpArray = split(Session("LaegIKurv"),"|" )
tmpArray = split(Session("LaegIKurv"), Session("skilletegn"))
For Each item In tmpArray
tmpArray2 = split(item,",")
'Response.Write tmpArray2(0) & " " & tmpArray2(1) & "<BR>" &
VbCrLf
Next
%>
</BODY>
</HTML>
men uden at der er kommet noget i kurven. jeg kan ikke finde
fejlen
(der er fjernet noget alm. htmlkode)
--
KONKURRENCE PÅ HTML.dk:
fortæl hvordan din drømmeeditor ser ud
og vind luksus webhoteller fra Wannafind
KLIK HER! =>
http://www.html.dk/editor