<%@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.

<%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%> <%rs.movenext loop rs.close%>

Varenavn:

Pris:

 
"> <%response.write rs("varenavn")%>
<%response.write formatcurrency (rs("pris"),2)%>
 
<% set rs=nothing kobling.close set kobling=nothing %>