Avatar billede justdoit Nybegynder
17. august 2002 - 16:22 Der er 5 kommentarer og
2 løsninger

session = "" ?

Jeg har en session som skal skrive et hvis der ikke er noget i databasen og noget andet hvis der er en værdi, men lige meget hvad så skriver den somom der er noget i databasen - hvorfor??

If Session("countVare") ="" then Response.Write ("<td class=""tekst"">Du har ingen varer i indkøbskurven</td>") else
Response.Write ("<td class=""tekst"">Du har " & countVare & " varer i indkøbskurven</td>")

rsReview.Close
set rsReview = Nothing
End if
%>
Avatar billede soes Nybegynder
17. august 2002 - 18:29 #1
Har du prøvet med If IsEmpty(Session("countVare")) ?
Du kan også prøve med If NOT Session("countVare") <> "" men det burde give samme resultat som det du har.
Avatar billede justdoit Nybegynder
17. august 2002 - 23:41 #2
Jeg har prøvet begge dele, men jeg kan ikke få det til at virke, der er ingen fejl, men der bliver bare ikke skrevet noget ud i feltet..

Det jeg gerne vil have scriptet til at gøre er at det skal vise på alle sider hvor mange varer der er i kurven!!

Her er koderne:

<%
    set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../e-handel/db/database.mdb")

if intOrderID = cstr(Session("orderID")) then

        sqlText = "select products.productID, productName, " _
            & "productPrice, quantity from products, " _
            & "itemsOrdered where " _
            & "products.productID = itemsOrdered.productID "_
            & "and itemsOrdered.orderID = " & intOrderID
%>
        <%
countVare = 0   
set rsReview = Conn.Execute(sqlText)
while not rsReview.EOF 
      intProdID = rsReview("productID")
      strProdName = rsReview("productName")
      intProdPrice = rsReview("productPrice")
      intQuant = rsReview("quantity")
      intTotal = intTotal + (intQuant * intProdPrice)
      countVare = countVare + intQuant
%>
<%= Session("countVare") = countVare %>
                         
<%             
rsReview.MoveNext
wend

If Session("countVare") <> "" then Response.Write ("<td class=""tekst"">Du har ingen varer i indkøbskurven</td>") else Response.Write ("<td class=""tekst"">Du har " & countVare & " varer i indkøbskurven</td>")

rsReview.Close
set rsReview = Nothing
End if
%>
Avatar billede soes Nybegynder
18. august 2002 - 03:06 #3
har du prøvet at udskrive din session variabel?, for at se om den får noget data overhovedet?

det kan ikke svare sig at du skriver til din session hele tiden - flyt den uden for din løkke
Avatar billede justdoit Nybegynder
18. august 2002 - 14:00 #4
Nu har jeg redigeret lidt i koden, og den udskriver fint på en af siderne, men på resten står der at: Der er ingen vare i kurven, det forstår jeg ikke??

Her er koden efter jeg har rettet lidt i den:

<% Session("countVare") = countVare %>
                <%
    set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../e-handel/db/database.mdb")

if intOrderID = cstr(Session("orderID")) then

        sqlText = "select quantity from products, " _
            & "itemsOrdered where " _
            & "products.productID = itemsOrdered.productID "_
            & "and itemsOrdered.orderID = " & intOrderID

countVare = 0   
set rsReview = Conn.Execute(sqlText)
while not rsReview.EOF 
      intQuant = rsReview("quantity")
      countVare = countVare + intQuant
             
rsReview.MoveNext
wend

If Session("countVare") <> "" then Response.Write ("<td class=""tekst"">Du har ingen varer i indkøbskurven</td>") else Response.Write ("<td class=""tekst"">Du har " & countVare & " varer i indkøbskurven</td>")

rsReview.Close
set rsReview = Nothing
End if
%>
Avatar billede eagleeye Praktikant
18. august 2002 - 14:38 #5
Prøv at lave disse linier:

If Session("countVare") ="" then Response.Write ("<td class=""tekst"">Du har ingen varer i indkøbskurven</td>") else
Response.Write ("<td class=""tekst"">Du har " & countVare & " varer i indkøbskurven</td>")


om til dette, med return efter then og end if.:

If Session("countVare") ="" then
  Response.Write ("<td class=""tekst"">Du har ingen varer i indkøbskurven</td>")
else
  Response.Write ("<td class=""tekst"">Du har " & countVare & " varer i indkøbskurven</td>")
end if
Avatar billede justdoit Nybegynder
18. august 2002 - 17:42 #6
Det giver ingen forskel?
Avatar billede justdoit Nybegynder
19. august 2002 - 18:10 #7
Dette virker!

if cstr(Session("orderID")) = "" then
        Response.Write "<div align='center' class=""tekst"">"
        Response.Write "Du har ingen vare i indkøbskurven"
        Response.Write "</div>"
    else
        intOrderID = cstr(Session("orderID"))

        sqlText = "select quantity from products, " _
            & "itemsOrdered where " _
            & "products.productID = itemsOrdered.productID "_
            & "and itemsOrdered.orderID = " & intOrderID
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester