Shopcart_show.asp
<html>
<%
If Request.QueryString("Status") = "laggtill" Then
Antal = Request.QueryString("Antal")
Besk = Request.QueryString("Besk")
%>
Du har lagt till <%=Antal%> st <%=Besk%> i kundvagnen.
<%
Elseif Request.QueryString("Status") = "tagitbort" Then
Besk = Request.QueryString("Besk")
%>
Du har tagit bort <%=Besk%> från kundvagnen.
<%
End If
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("Database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Sessionen = Session.SessionID
rs.Open "SELECT * FROM TemporaryShopping WHERE SID='" & Sessionen & "'", conn, 4, 4
If rs.EOF = True Then %>
<p><b>Kundvagnen är tom.</b>
<%
Else
%>
<a href="Shopcart.asp?status=1" target=”_top”>Gå till kassan</A>
<table width=97% bgcolor=Silver>
<TR>
<td>Vara</td>
<td>Antal</td>
<td>Pris</td>
<td align="right">Ta bort från kundvagnen</td>
</TR>
<%
Do Until rs.EOF
ant = rs("Amount")
prs = rs("Price")
Summa = ant * prs
%>
<form method = "get" action = "Shopcart_delete.asp">
<tr>
<td align = "Left"><%=rs("Info")%></td>
<td align = "Left"><%=rs("Amount")%></td>
<td align = "Left"><%=Summa%> kr</td>
<td align="right">
<input name="submit1" type="submit" value="Tabort"></td>
<td><Input type = "hidden" value = "<%=rs("Info")%>" name = "Besk"></td>
<td><Input type = "hidden" value = "<%=rs("AID")%>" name = "ArtNr"></td>
<td><Input type = "hidden" value = "<%=Sessionen%>" name = "Sessionen"></td>
<td><Input type = "hidden" value = "tabort" name = "andra"></td></form>
</tr>
</table>
<%
rs.MoveNext
Loop
Session("From") = "visa"
rs.Close
conn.Close
set rs=nothing
set conn=nothing
End If
%>
</html>
Some words are Swedish, so if you don't understand I'd be more then glad to explain!
Thank you c:

New Topic/Question
Reply


MultiQuote




|