/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Hvorfor sker der ikke noget
Fra : Jan


Dato : 10-04-02 11:52

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">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
            <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

 
 
Jakob Andersen (10-04-2002)
Kommentar
Fra : Jakob Andersen


Dato : 10-04-02 12:47

"Jan" <jmk@it.dk> skrev i en meddelelse news:a915gu$kts$1@sunsite.dk...
[Snip]

Du har postet dette en gang. Det hjælper ikke at poste det flere gange, de
folk der kan svare på det skal nok gøre det når de ser indlæget.

--
Jakob Andersen




Søg
Reklame
Statistik
Spørgsmål : 177554
Tips : 31968
Nyheder : 719565
Indlæg : 6408857
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste