japp det gör jag!
Session problem
24 svar · 493 visningar · startad av pellsäter · sida 2 av 2
Vad får du om du skriver ut sql?
sql = "Insert Into tempKorg(sessionID,artikelID,antal) Values ('" & sSession & "', '" & sArtnr & "', '" & sAntal & "')"
response.write sql
Det vrekar som den lägger in ordern i tempKorgen med ett SessionID men när jag vill plocka ut ordern och lägga den i orederRad så vill den ta fram en order med ett annat SessionID??
Bengt
Kan inte någon kika på mitt problem på siten
Kolla på
https://www.muskelbutiken.com/frame.asp
Dr längst ner så står det ett SessionID ,men det följer inte med under hela applikationen....
Snälla hjälp
Koden för sidan ser ni här
<html>
<head>
<title>M U S K E L B U T I K E N !!!!</title>
<%
sAction = Cstr(Request.Querystring("andra"))
sAntal = Cint(Request.Querystring("antal"))
sArtnr = Cint(Request.Querystring("artnr"))
sBesk = Cstr(Request.Querystring("besk"))
sSession = Session.Sessionid
sLosen = Request.Querystring("los")
sLogin = Request.Querystring("log")
response.write sSession
%>
</head>
<body topmargin="0" leftmargin="0" link="#006699" vlink="#006699" alink="#006699" bgcolor="#FFFFFF" marginwidth="0" marginheight="0">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr bgcolor="#000000">
<td colspan="10" width="100%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#006699">
<b><font size="1" color="#FFFFFF"> Kundkorg / </font></b></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">
<%
Select Case sAction
Case "tabort"
TaBort
VisaInnehall
Case "laggtill"
LaggTill
VisaInnehall
Case "login"
Login
Case "bestalla"
Bestalla
Case Else %> Din kundvagn är tom
<% End Select %></font> <font color="#FFFFFF">
<% Sub LaggTill()
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "xxxx"
sql = "Select * from tempKorg Where artikelID = " & sArtnr & ""
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn
If(rs.Eof) then
sql = "Insert Into tempKorg(sessionID,artikelID,antal) Values ('" & sSession & "', '" & sArtnr & "', '" & sAntal & "')"
response.write (Sql)
conn.Execute(sql)
Else
nAntal=rs("Antal")
tAntal=sAntal+nAntal
sql = "Update tempKorg Set Antal = " & tAntal & " Where artikelID = " & sArtnr & ""
conn.Execute(sql)
End if
conn.close
%> <font face="Verdana, Arial, Helvetica, sans-serif" size="1"> Du har lagt till
<%=sAntal%> st <%=sBesk%>
<%End Sub%>
<% Sub TaBort()
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "xxxx"
sql = "Delete * from tempKorg Where artikelID = " & sArtnr & " And SessionID = " & sSession & ""
conn.execute(sql)
conn.close %> Du tog bort <%=sBesk%> <%End sub%> </font></font></td>
</tr>
<td>
<table bgcolor="#FFFFFF" cellpadding="0" cellspacing="0" width="100%" align="left">
<% Sub VisaInnehall
Set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "xxxx"
sql = "Select Produkter.besk,antal,artikelID,pris From tempKorg Inner Join Produkter On tempKorg.artikelID = Produkter.ProdID"
rs.open sql,conn
%>
<tr>
<td>
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#006699"><b>Vara</b></font></div>
</td>
<td>
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#006699"><b>Antal</b></font></div>
</td>
<td>
<div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#006699"><b>Pris</b></font></div>
</td>
</tr>
<% Do until rs.eof
ant=rs("Antal")
prs=rs("Pris")
tSumma=ant*prs
%>
<tr>
<form action="korgen.asp" method="get" target="3">
<td width="60%">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#006699"><%=rs("Besk")%></font></div>
</td>
<td width="10%">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#006699"><%=rs("Antal")%></font></div>
</td>
<td width="20%">
<div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#006699"><%=tSumma%>:-</font></div>
</td>
<td align="right"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#006699">
<input type="submit" value="ta bort" name="submit">
</font></td>
<td>
<input type="hidden" value="<%=rs("besk")%>" name="besk">
</td>
<td>
<input type="hidden" value="<%=rs("ArtikelId")%>" name="artnr">
</td>
<td>
<input type="hidden" value="tabort" name="andra">
</td>
</form>
</tr>
<%
rs.movenext
loop
rs.close
conn.close
%>
<tr>
\<td colspan="7"\> \<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#006699"\>
\<a href="korgen.asp?andra=login" target="3"\>\<b\>Gå till kassan\</b\>\</a\>\</font\>
\<%End sub%\>
\</td\>
\</tr\>
\</table\>
</td>
</tr>
</table>
<%Sub Login%>
<form action="korgen.asp" target="3">
Logga in:<br>
Användarnamn:<input type="text" name="log">
Lösenord:
<input type="password" name="los">
<input type="submit" value="ok">
<input type="hidden" value="bestalla" name="andra">
<a href="reg.htm" target="1">Registrera</a>
</form>
<%End Sub%>
<%Sub Bestalla
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "xxxx"
sql = "Select * From Kunder Where Losenord = '" & sLosen & "' And Logg = '" & slogin & "'"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn
If not (Rs.Eof) then
sKid = rs("kundID")
rs.close
sql = "Select * from tempKorg Where SessionID = " & sSession & ""
response.write (Sql)
rs.open sql,conn
Do until rs.eof
sAid = rs("artikelID")
sAntal = rs("Antal")
sdatum=date()
sql="Insert Into orderRad(OrderID, Antal, KundID, artikelID, datum) Values ('"& sSession &"', '"& sAntal &"', '"& sKid &"', '"& sAid &"', '"& sdatum &"')"
response.write (Sql)
conn.execute(sql)
sql = "Delete * from tempKorg Where SessionID = " & sSession & ""
conn.execute(sql)
rs.movenext
loop
response.write (Sql)
response.write "Tack för din beställning"
Session.Abandon
Else
response.write "Du är inte kund"
End If
conn.close
End sub%>
</body>
</html>