%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%option explicit
dim sql, kobling, rs, openstring%>
<%set rs=server.CreateObject("ADODB.recordset")
'************Hele denne kodedelen sørger for at varer blir lagt i kurven(TBLhk):
'************sjekker om det er en vareID i Querystringen:
if request.querystring("vareID")<>""then
'************åpner/henter recordset med alt det denne kunden har av denne varen i handlekurven/TBLhk. (dette gjør vi for å kunne teste om kunden har varen fra før.)
sql="select hkID, antall from TBLhk where sessionID="&session.sessionID &" and FKvare="&request.QueryString("vareID")
rs.open sql,kobling
'************sjekker om recordsettet er tomt, (isåfall har ikke denne kunden lagt denne varen i handlekruven fra før):
if rs.eof then
'************dersom kunden ikke har denne vare i handlekurven fra før, kjøres det INSERT i TBLhk, (dvs. varen legges i handlekurven):
sql="insert into TBLhk(FKvare,sessionID,antall)VALUES(" _
& request.QueryString("vareID") &","& session.sessionID &",1)"
kobling.execute sql
else
'*****************Dersom kunden har denne varen i handlekurven fra før, kjøres det en UPDATE for riktig post i TBLhk (dvs. varen oppdateres med 1 til i TBLhk):
sql="update TBLhk set antall=antall+1 where hkID="& rs("hkID")
kobling.execute sql
end if
'*****************Sørger for at det ikke blir lagt en ny vare i kurven ved refresh/oppdater av siden. Brukeren blir sendt tilbake til samme side, uten vareID, men med kategoriID:
response.redirect("default.asp?kategoriID="& request.querystring("kategoriID"))
'*****************lukker recordsettet med denne kundens kjøp av denne varen:
rs.close
end if
%>
Saltvedt Nettbutikk
Varer:
Her er en oversikt over alle våre varer. Du kan også sortere varene på varetype.
Klikk på hvilken type du ønsker å se nærmere på i menyen.
Varenavn:
Pris:
<%sql="select varenavn,pris,vareID from TBLvare where ihylla=1"
if request.querystring("kategoriID")<>""then
sql=sql&"and FKkategori="&request.QueryString("kategoriID")
end if
rs.open sql,kobling
do while not rs.eof%>