<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("webshop.mdb") Session.Lcid = 1053 %> <% Function kollabild(text) dim filesys, newfolder set filer = CreateObject("Scripting.FileSystemObject") mappen = Server.MapPath(mapp) If Not filer.FolderExists(mappen) Then filer.CreateFolder mappen End If filen = mapp & "/" & text & ".gif" If Not filer.FileExists(Server.MapPath(filen)) Then Response.Write "bilder/nopicture.gif" Else Response.Write "filer/" & text & ".gif" End if Set filer = Nothing End Function %>
 :: Dastar shopping center

<% datum = Now() manad = MonthName(Month(datum)) dagnamn = WeekDayName(WeekDay(datum,1)) & "en" dag = Day(datum) IF Right(dag,1) = "1" Or Right(dag,1) = "2" then dag2 = ":a" ELSE dag2 = ":e" END IF ar = Year(datum) datum = dagnamn & " den " & dag & dag2 & " " & manad & " " & ar Response.Write datum %>  

Varmt välkommen till Dastar Shopping center! Här hittar du allt du kan tänka dig! Till bra priser så klart ;) (OBS! Detta är alltså enbart på skoj, det är inga riktiga varor och inga riktiga pengar inblandade, utan det är Dastar pengar du handlar med ;)). Till Dastar 2.0 har vi byggt upp ett nytt fräsht system som underlättar för er som köpare :) Du väljer en kategori i menyn, sedan kan du välja vad du tänker köpa, genom att lägga dom i din varukorg, du kan även välja hur många du tänker köpa! När du är nöjd klickar du på "Kassa", där ser du dina beställningar, och hur mycket allt kommer kosta. Sen är det bara att klicka på "Beställ" så har du köpt dina varor :)! Enkelt va? Ha så skoj på din shopping tur =)
:: Dastar shopping center

:: Kategori meny
<% SQL = "SELECT id, namn FROM kategorier ORDER BY namn" Set RecSet = Connect.Execute(SQL) IF RecSet.EOF then Response.Write "Inga kategorier inlagda..." ELSE Do until RecSet.EOF Response.Write "" Response.Write " " Response.Write RecSet("namn") & "
" RecSet.MoveNext Loop END IF RecSet.Close Set RecSet = nothing IF Len(Session("nyprod")) > 0 then Response.Write "
" & Session("nyprod") Session("nyprod") = "" END IF %>
<% kat = Request.Querystring("category") IF Len(kat) > 0 then SQL = "SELECT * FROM produkter WHERE kat =" & kat & " ORDER BY namn" Set RecSet = Connect.Execute(SQL) IF RecSet.EOF then Response.Write "Inga artiklar hittades..." ELSE Do until RecSet.EOF %>
" width="120" height="120">
<% Response.Write "Produktnamn: " & RecSet("namn") & "
" Response.Write "Artikelnummer: " & RecSet("artnr") & "

" Response.Write "Beskrivning:
" & RecSet("beskrivning") & " " %>
&namn=<%=RecSet("namn")%>&pris=<%=RecSet("pris")%>"> " %>
<% Response.Write "Pris: " pris = RecSet("pris") pris2 = FormatCurrency(pris,2) pris2 = Replace(pris2,",00","") Response.Write pris2 IF inklmoms = 1 then Response.Write " Inkl. moms" ELSE Response.Write " Exkl. moms" END IF Response.Write "
    
<% RecSet.MoveNext Loop END IF RecSet.Close Set RecSet = Nothing ELSEIF Request("show") = "kundvagn" then %>
 :: Din kundvagn

<% varde = Request.Cookies(""& Session.SessionID &"") hamta = Split(varde,"&") ReDim MyArray(4,Ubound(hamta)) for x = 0 to ubound(hamta) hamta2 = Split(hamta(x),"=") IF Len(hamta2(0)) > 0 AND len(hamta2(1)) > 0 then SQL = "SELECT * FROM produkter WHERE id =" & int(hamta2(0)) Set RecSet = Connect.Execute(SQL) MyArray(0,x) = hamta2(0) MyArray(1,x) = hamta2(1) MyArray(2,x) = RecSet("artnr") MyArray(3,x) = RecSet("namn") MyArray(4,x) = RecSet("pris") RecSet.Close Set RecSet = nothing END IF next For i = 0 To Ubound(myArray,2) IF Len(MyArray(0,i)) > 0 then andra = andra & myArray(0,i) & "=" & myArray(1,i) IF NOT i = Ubound(myArray,2) then andra = andra & "|" END IF END IF Next Session("andra") = andra %> <% count = 0 ant = 0 total = 0 For i = 0 To Ubound(myArray,2) IF Len(MyArray(0,i)) > 0 then%> <% count = count + 1 END IF Next IF count <> 0 then%> <%ELSE%> <%END IF%>
Art.nr Namn á-pris
Antal
 Totalt
Ta bort
<%=MyArray(2,i)%>  <%=MyArray(3,i)%>  <% Response.Write FormatCurrency(MyArray(4,i))%> 
<% tal1 = round(MyArray(4,i),2) tal2 = round(MyArray(1,i),2) pris = tal1 * tal2 IF Instr(pris,",") then pris2 = Split(pris,",") decital = pris2(1) IF NOT Len(decital) <> 1 then decital = "" & decital & "0" END IF IF decital < 25 then summa = pris2(0) ELSEIF decital > 24 AND decital < 75 then summa = pris2(0) + 0.50 ELSE summa = pris2(0) + 1 END IF ELSE summa = pris END IF IF instr(summa2,",") then summa2 = split(summa,",") IF len(summa2(1)) <> 1 then kontroll = summa & " kr" ELSE kontroll = summa & "0 kr" END IF ELSE kontroll = summa & " kr" END IF Response.Write FormatCurrency(kontroll) total = total + summa %> 
    
Totalt <%=ant%> <%IF ant > 1 then Response.Write "produkter" ELSE Response.Write "produkt" END IF%> som sammanlagt kostar <% total2 =FormatCurrency(total) total2 = Replace(total2," kr","") Response.Write total2%> kronor
Inga produkter i din kundvagn
<%ELSEIF Request("show") = "kassa" then %>
 :: Kassan

<% varde = Request.Cookies(""& Session.SessionID &"") hamta = Split(varde,"&") ReDim MyArray(4,Ubound(hamta)) for x = 0 to ubound(hamta) hamta2 = Split(hamta(x),"=") IF Len(hamta2(0)) > 0 AND len(hamta2(1)) > 0 then SQL = "SELECT * FROM produkter WHERE id =" & int(hamta2(0)) Set RecSet = Connect.Execute(SQL) MyArray(0,x) = hamta2(0) MyArray(1,x) = hamta2(1) MyArray(2,x) = RecSet("artnr") MyArray(3,x) = RecSet("namn") MyArray(4,x) = RecSet("pris") RecSet.Close Set RecSet = nothing END IF next For i = 0 To Ubound(myArray,2) IF Len(MyArray(0,i)) > 0 then andra = andra & myArray(0,i) & "=" & myArray(1,i) IF NOT i = Ubound(myArray,2) then andra = andra & "|" END IF END IF Next Session("andra") = andra %> <% count = 0 ant = 0 total = 0 For i = 0 To Ubound(myArray,2) IF Len(MyArray(0,i)) > 0 then%> <% count = count + 1 END IF Next IF count <> 0 then%> <%ELSE%> <%IF Request("skickad") = "ja" then %> <%ELSE%> <%END IF END IF%>
Art.nr Namn á-pris
Antal
Totalt
<%=MyArray(2,i)%>  <%=MyArray(3,i)%>  <% Response.Write FormatCurrency(MyArray(4,i))%>  
<% Response.Write MyArray(1,i) strAntal = MyArray(1,i) ant = ant + strAntal %>
<% tal1 = round(MyArray(4,i),2) tal2 = round(MyArray(1,i),2) pris = tal1 * tal2 IF Instr(pris,",") then pris2 = Split(pris,",") decital = pris2(1) IF NOT Len(decital) <> 1 then decital = "" & decital & "0" END IF IF decital < 25 then summa = pris2(0) ELSEIF decital > 24 AND decital < 75 then summa = pris2(0) + 0.50 ELSE summa = pris2(0) + 1 END IF ELSE summa = pris END IF IF instr(summa2,",") then summa2 = split(summa,",") IF len(summa2(1)) <> 1 then kontroll = summa & " kr" ELSE kontroll = summa & "0 kr" END IF ELSE kontroll = summa & " kr" END IF Response.Write FormatCurrency(kontroll) total = total + summa %>
    
Summa:
<% Response.Write Rtrim(FormatCurrency(total)) total2 = total %>
Moms:
<% IF inklmoms = 0 then pris = Round(total/4,2) IF Instr(pris,",") then pris2 = Split(pris,",") If len(pris2(1)) > 2 then decital = left(pris2(1),2) ELSE decital = pris2(1) END IF IF NOT Len(decital) <> 1 then decital = "" & decital & "0" END IF IF decital < 25 then summa = pris2(0) ELSEIF decital > 24 AND decital < 75 then summa = pris2(0) + 0.50 ELSE summa = pris2(0) + 1 END IF ELSE summa = pris END IF IF instr(summa,",") then summa2 = split(summa,",") IF len(summa2(1)) = 1 then mkontroll = "" & summa & "0" ELSE mkontroll = "" & summa & "" END IF ELSE mkontroll = "" & summa & "" END IF Response.Write mkontroll & " kr" ELSE Response.Write "Ingår" END IF %>
Frakt:
<%Response.Write FormatCurrency(frakt)%>
Totalt:
<%abtotalen = total2 + mkontroll + frakt Response.Write FormatCurrency(abtotalen)%>
<% IF len(Session("webshopfel")) > 0 then falt = Split(Session("falt"),"|") fel = 1 ELSE fel = 0 END IF %> <%IF Len(Session("webshopfel")) > 0 then%> <%Session("webshopfel") = "" ELSEIF Len(Request("skickad")) > 0 then%> <%END IF%>
Användarnamn: <%=session("user")%>
<%=Session("webshopfel")%>
<%Response.Write "Nu är din beställning skickad!"%>
Din beställning är nu skickad
Inga produkter i din kundvagn
<%ELSE%>
Välkommen till Dastar shopping center!
Varmt välkommen till den nya fräsha shopping centret! Här hittar du alla sorts varor till fina priser!
   
 
<%END IF%>