If - hvad ??

Jeg har med stor hjælp fået lavet denne indkøbskurv :-)

Nu vil jeg gerne have at kurven kun bliver skrevet ud, hvis der er noget i den.



If IsArray(Session("vare")) = false Then
  Dim vare2(19,4)   
  vare2(1,0) = Request.QueryString("item")  'Vare nr eller anden ID
  vare2(1,1) = Request.Querystring("size")  'Størrelse
  vare2(1,2) = Request.QueryString("color") 'Farven
  vare2(1,3) = Request.QueryString("count") 'Antalet af varen man vil købe
  vare2(1,4) = Request.QueryString("pris")  'Varens pris
  Session("vare") = vare2
else
  vare2=session("vare")
  incart=false
  for i=lbound(vare2) to ubound(vare2)
    if vare2(i,0) = Request.QueryString("item") AND vare2(i,1) = Request.Querystring("size") AND vare2(i,2) = Request.Querystring("color") and not(incart) then
      'Opdater Countet
      vare2(i,3) = vare2(i,3) + CInt(Request.QueryString("count")) 'Antalet af varen man vil købe
      incart=true
    end if
    if vare2(i,0)="" and vare2(i,1)="" and not(incart) then
      'Ligger nu vare i kurven
      vare2(i,0) = Request.QueryString("item")  'Vare nr eller anden ID
      vare2(i,1) = Request.Querystring("size")  'Størrelse
      vare2(i,2) = Request.QueryString("color") 'Farven
      vare2(i,3) = Request.QueryString("count") 'Antalet af varen man vil købe
      vare2(i,4) = Request.QueryString("pris")  'Varens pris
      incart=true
    end if
  next
  session("vare")=vare2
end if


'*********** HER BLIVER KURVEN SKREVET UD ******

strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Server.Mappath("db/webshop.mdb") & ";"

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnection

Response.Write "<form action=""confirm.asp"" method=""post"">"
Response.write "<table border=1>"
Response.write "<tr><td><font face=verdana size=1><b>Vare</b></font></td><td><font face=verdana size=1><b>størrelse</b></font></td><td><font face=verdana size=1><b>farve</b></font></td><td><font face=verdana size=1><b>antal</b></font></td><td><font face=verdana size=1><b>Pris</b></font></td></tr>"


pris = 0
for i=lbound(vare2) to ubound(vare2)
varenr = vare2(i,0)

    if len(varenr) > 0 then
        Set objRS = Server.CreateObject("ADODB.Recordset")
        Set objRS.ActiveConnection = objconn
        SQL = "SELECT * FROM varer WHERE vareid=" & varenr &";"
        objRS.Open  SQL
   
    pris = vare2(i,4)
    antal = vare2(i,3)
    total = antal * pris
   
   
  Response.write "<tr>"
  Response.write "<td nowrap><font face=verdana size=1>" & objRS("varenavn") & "</font></td>"
  Response.write "<td><font face=verdana size=1>" & vare2(i,1) & "</font></td>"
  Response.write "<td><font face=verdana size=1>" & vare2(i,2) & "</font></td>"
  Response.write "<td><font face=verdana size=1>" & antal & "</font></td>"
  Response.write "<td><font face=verdana size=1>" & total & "</font></td>"
  Response.write "</tr>"
set objRS = nothing   
end if
next
Response.write "</table>"



set objRS = nothing

Response.Write "<center><input type=""submit"" value=""Til Kassen"">&nbsp;"
Response.Write "<a href=""default.asp?kategori=" & strKategori & "&kurv=2"">Tøm Kurven</a></center>"