How should i write the code for my basket window?

Beracosta · Oct 26, 2000

Hi! I sure hope that i'll get as good help that i have had on my other questions. I have this problem, i want the shopping basket to be in a frame so the customer always will see what the basket contains... but i can solve this... pls help me... this is the code for ShowBasket.asp:

<html>
<head><title>Global Kockknivar</title></head>
<body bgcolor="ffffff" text="#000000" link="#008000" alink="#808000" vlink="#800000">

<%
Dim oRs
Dim strSQL

Set oRs = Server.CreateObject("ADODB.Recordset&quot

With oRs
.ActiveConnection = "DSN=SYCENT;"
.CursorLocation = 3
.CursorType = 3
.LockType = 4
strSQL = "SELECT Name, Quantity, Price FROM BasketContent " & _
"INNER JOIN Merchants ON BasketContent.MerchantID = Merchant.Id " & _
"WHERE BasketContent.BasketId = " & Request("BasketID&quot

.Open strSQL
Set .ActiveConnection = Nothing
While Not oRs.EOF
Response.Write "Name: " & oRs("Name&quot

.Value & " Quantity: " & oRs("Quantity&quot

.Value & " Tot Price: " & oRs("Quantity&quot

.Value * oRs("Price&quot

.Value & "<br>"
oRs.MoveNext
Wend
.Close
End With
Set oRs = Nothing
%>

</body>
</html>

can someone pls help me?

culshaja · Oct 27, 2000

Firstly, don't set the ActiveConnection to nothing until after you have processed the loop, that might be causing a problem.

Secondly, calculate the total price into a variable, and then use this variable in the response.write. Although this means an extra line of code, it will probably prove more efficient in the long run. It does in VB.

Thirdly, there is no need to set the lock type as you are using a static cursor so the default of ReadOnly is fine as you can't modify the data using this cursor type. James Culshaw
jculshaw@active-data-solutions.co.uk

http://www.active-data-solutions.co.uk

http://www.brainbench.com/transcript.jsp?pid=193305

Guest_imported · Oct 27, 2000

But.... when i use this code... the window that shows ShowBasket.asp just gets a error msg when i entre the site... it's something with
BasketContent.BasketId = BasketID ......

how should i write the code? thanx in advance

culshaja · Oct 27, 2000

How are you passing BasketID? Are you using the QueryString or Form (i.e. are you using GET or POST, or are you dynamically generating a QueryString)?

James

James Culshaw
jculshaw@active-data-solutions.co.uk

http://www.active-data-solutions.co.uk

http://www.brainbench.com/transcript.jsp?pid=193305

Guest_imported · Oct 27, 2000

At the moment i type the basketid manually but in the goal is to have a BasketID that is gererated and saved in a cookie so the costumer always has it's own unic basket when he/she comes to my site... i haven't solved this either. =)

culshaja · Oct 27, 2000

What database are you talking to? I may be able to help with the generation of an ID.
Did you not post this question? I think I answered that one somewhere else on this forum!

Try this code:

Code:

<%
    Dim oRs
    Dim strSQL
    Dim intValue

    Set oRs = Server.CreateObject(&quot;ADODB.Recordset&quot;)
    With oRs 
        .ActiveConnection = &quot;DSN=SYCENT&quot;
        .CursorLocation = 3
        .CursorType = 3
        strSQL = &quot;SELECT Name, Quantity, Price FROM BasketContent INNER JOIN Merchants ON BasketContent.MerchantID = Merchant.Id WHERE BasketContent.BasketId = {put a known basket id here}&quot; 
        .Source = strSQL
        .Open 
        While Not oRs.EOF
            Response.Write &quot;Name: &quot; 
            Response.Write oRs(&quot;Name&quot;)
            Response.Write &quot; Quantity: &quot;
            Response.Write oRs(&quot;Quantity&quot;)
            Response.Write &quot; Tot Price: &quot;
            intValue = oRs(&quot;Quantity&quot;) * oRs(&quot;Price&quot;) 
            Response.Write intValue
            Response.Write &quot;<br>&quot;
            oRs.MoveNext
        Wend
        .Close
    End With
    Set oRs = Nothing
%>

By putting a known basket ID into the SQL then you can test the SQL with known values.
Another option is to get the ASP to

Code:

Response.Write

the SQL onto the page, and then run this SQL directly against your DB and see the results or error messages that appear. If you then have problems then post them back here and I'll try to help.

James

James Culshaw
jculshaw@active-data-solutions.co.uk

http://www.active-data-solutions.co.uk

http://www.brainbench.com/transcript.jsp?pid=193305

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

How should i write the code for my basket window?

Beracosta

Programmer

culshaja

Programmer

Guest_imported

New member

culshaja

Programmer

Guest_imported

New member

culshaja

Programmer

Similar threads

Part and Inventory Search

Sponsor