<% Session.LCID = 1030 ' 1030 = dk 1033 = us cartname = Request("cart") cartitemadd = Request("add") cartitemremove = Request("remove") cartitemquantity = Request("quantity") cartitemreset = Request("reset") cartitemshow = Request("show") cartitemshowall = Request("showall") cartorder = Request("order") send = Request("send") Dim tmpArray() Dim tmpSize, tmpCol, tmpRow '------------add----------- If (cartitemadd <> "") Then If IsArray(Session("cart")) Then tmpCol = UBound(Session("cart"),1) tmpRow = UBound(Session("cart"),2) Redim tmpArray(tmpCol,tmpRow) For i = 0 to tmpCol For j = 0 to tmpRow tmpArray(i,j) = Session("cart")(i,j) Next Next tmpSize = tmpRow For tmpCounter = 0 to tmpSize If ((tmpArray(0,tmpCounter) = cartname) and (tmpArray(1,tmpCounter) = cartitemadd)) Then If (Cint(cartitemquantity) >= 1) Then tmpArray(2,tmpCounter) = Cint(tmpArray(2,tmpCounter)) + Cint(cartitemquantity) done = true else tmpArray(2,tmpCounter) = 1 done = true End If End If Next If (done <> true) Then tmpSize = tmpSize + 1 Redim Preserve tmpArray(2,tmpSize) tmpArray(0,tmpSize) = cartname tmpArray(1,tmpSize) = cartitemadd If (Cint(cartitemquantity) >= 1) Then tmpArray(2,tmpSize) = Cint(cartitemquantity) else tmpArray(2,tmpSize) = 1 End If End If Else Redim tmpArray(2,0) tmpArray(0,0) = cartname tmpArray(1,0) = cartitemadd If (Cint(cartitemquantity) >= 1) Then tmpArray(2,0) = Cint(cartitemquantity) else tmpArray(2,0) = 1 End If End If Session("cart") = tmpArray If (cartitemshowall = "") Then cartitemshow = cartitemadd End If End If '------------remove----------- If (cartitemremove <> "") Then If IsArray(Session("cart")) Then tmpCol = UBound(Session("cart"),1) tmpRow = UBound(Session("cart"),2) Redim tmpArray(tmpCol,tmpRow) For i = 0 to tmpCol For j = 0 to tmpRow tmpArray(i,j) = Session("cart")(i,j) Next Next tmpSize = tmpRow For tmpCounter = 0 to tmpSize If ((tmpArray(0,tmpCounter) = cartname) and (tmpArray(1,tmpCounter) = cartitemremove)) Then If (Cint(cartitemquantity) >= 1) Then tmpArray(2,tmpCounter) = Cint(tmpArray(2,tmpCounter)) - Cint(cartitemquantity) If (Cint(tmpArray(2,tmpCounter)) < 1) Then tmpSize = tmpSize - 1 For rmLoop = tmpCounter to tmpSize tmpArray(0,rmLoop) = tmpArray(0,rmLoop+1) tmpArray(1,rmLoop) = tmpArray(1,rmLoop+1) tmpArray(2,rmLoop) = tmpArray(2,rmLoop+1) Next tmpArray(0,tmpSize+1) = "" tmpArray(1,tmpSize+1) = "" tmpArray(2,tmpSize+1) = 0 End If done = true else tmpSize = tmpSize - 1 For rmLoop = tmpCounter to tmpSize tmpArray(0,rmLoop) = tmpArray(0,rmLoop+1) tmpArray(1,rmLoop) = tmpArray(1,rmLoop+1) tmpArray(2,rmLoop) = tmpArray(2,rmLoop+1) Next tmpArray(0,tmpSize+1) = "" tmpArray(1,tmpSize+1) = "" tmpArray(2,tmpSize+1) = 0 End If End If Next End If If (tmpSize = -1) Then Redim tmpArray(2,0) Session("cart") = null Session.abandon Else Redim Preserve tmpArray(2,tmpSize) Session("cart") = tmpArray End If If (cartitemshowall = "") Then cartitemshow = cartitemremove End If End If '------------clear all the cart----------- If (cartitemreset <> "") Then Response.Write "clearing cart
" Session("cart") = null Session.abandon End If '------------show----------- If (cartitemshow <> "") Then If IsArray(Session("cart")) Then For i = 0 to UBound(Session("cart"),1) For j = 0 to UBound(Session("cart"),2) If ((Session("cart")(0,j) = cartname) and (Session("cart")(1,j) = cartitemshow)) Then Order = true End If Next Next End If Response.Write "" & cartname & "" If (Order = true) Then Response.Write "" Response.Write "" Else Response.Write "" Response.Write "" End If Response.Write "" Response.Write "" End If '------------show all the cart----------- If ((cartitemshowall <> "") or (cartitemreset & cartitemshow & cartitemadd & cartitemremove & cartorder) = "") Then Response.Write "Persodan" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" Response.Write "
" Response.Write "" Response.Write "
" showcart("k1") showcart("k2") If IsArray(Session("cart")) Then Response.Write "
" End If Response.Write "
" End If Function showcart(cartname) Response.Write "" If (cartname = "k1") Then Response.Write "Indkøbsvogn for købstæpper" End If If (cartname = "k2") Then Response.Write "Indkøbsvogn for udvalgstæpper" End If Response.Write "
" If IsArray(Session("cart")) Then For j = 0 to UBound(Session("cart"),2) If (Session("cart")(0,j) = cartname) Then verifyaccept = true End If Next End If If (verifyaccept) Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" '********************************************************************** '** dbConnect ********************************************************* '********************************************************************** Set DB = Server.CreateObject("ADODB.Connection") VPath = Request.ServerVariables("PATH_INFO") VPath = Left(VPath, InStrRev(VPath, "/main/")) DefDir = Request.ServerVariables("PATH_TRANSLATED") DefDir = Left(DefDir, InStrRev(DefDir, "\main\")) DB.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath(VPath & "carpets/database.mdb") & ";DefaultDir=" & DefDir & "carpets;UID=admin;PWD=1919;" DB.Open '********************************************************************** '** dbSearch ********************************************************** '********************************************************************** dim items SQLQuery = "SELECT * FROM Products WHERE Status = 'InStock' and Online = true " If IsArray(Session("cart")) Then For i = 0 to UBound(Session("cart"),1) For j = 0 to UBound(Session("cart"),2) If (Session("cart")(0,j) = cartname) Then If (SQLQueryId = "") Then SQLQueryId = "Id = '" & Session("cart")(1,j) & "'" Else SQLQueryId = SQLQueryId & " or Id = '" & Session("cart")(1,j) & "'" End If End If Next Next End If SQLQuery = SQLQuery & "and " & SQLQueryId Set DB_Response = DB.Execute(SQLQuery) items = 0 While Not DB_Response.EOF DB_Response.MoveNext items = items + 1 Wend Set DB_Response = DB.Execute(SQLQuery) '********************************************************************** totalPrice = 0 Do While Not DB_Response.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" DB_Response.MoveNext Loop If (cartname = "k1") Then Response.Write "" Response.Write "" End If Else Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" End If Response.Write "
OmrådeBreddeLængdePris 
" Response.Write "" & DB_Response("Area") & ", " & DB_Response("Country") & "" Response.Write "" & DB_Response("Width") & "" Response.Write "" & DB_Response("Length") & "" Response.Write "" If IsArray(Session("cart")) Then For j = 0 to UBound(Session("cart"),2) If ((Session("cart")(0,j) = cartname) and (Session("cart")(1,j) = DB_Response("Id"))) Then Response.Write Cint(DB_Response("Price")) * Cint(Session("cart")(2,j)) totalPrice = totalPrice + (Cint(DB_Response("Price")) * Cint(Session("cart")(2,j))) End If Next End If Response.Write "
Total" & totalPrice & " 
OmrådeBreddeLængdePris
Tom


" END Function '------------order----------- If ((cartorder <> "") and (send = "")) Then pageValue = "" VPath = Request.ServerVariables("PATH_INFO") VPath = Left(VPath, InStrRev(VPath, "/main/")) pageValue = pageValue & "Bestilling" pageValue = pageValue & "Bestilling

" pageValue = pageValue & "Se venligst varelisten igennem inden De trykker SEND" pageValue = pageValue & "
" ordercart("k1") ordercart("k2") Function ordercart(cartname) If IsArray(Session("cart")) Then For j = 0 to UBound(Session("cart"),2) If (Session("cart")(0,j) = cartname) Then verifyaccept = true End If Next End If If (verifyaccept) Then pageValue = pageValue & "" If (cartname = "k1") Then pageValue = pageValue & "Indkøbsvogn for købstæpper" End If If (cartname = "k2") Then pageValue = pageValue & "Indkøbsvogn for udvalgstæpper" End If pageValue = pageValue & ":" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" '********************************************************************** '** dbConnect ********************************************************* '********************************************************************** Set DB = Server.CreateObject("ADODB.Connection") VPath = Request.ServerVariables("PATH_INFO") VPath = Left(VPath, InStrRev(VPath, "/main/")) DefDir = Request.ServerVariables("PATH_TRANSLATED") DefDir = Left(DefDir, InStrRev(DefDir, "\main\")) DB.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath(VPath & "carpets/database.mdb") & ";DefaultDir=" & DefDir & "carpets;UID=admin;PWD=1919;" DB.Open '********************************************************************** '** dbSearch ********************************************************** '********************************************************************** dim items SQLQuery = "SELECT * FROM Products WHERE Status = 'InStock' and Online = true " If IsArray(Session("cart")) Then For i = 0 to UBound(Session("cart"),1) For j = 0 to UBound(Session("cart"),2) If (Session("cart")(0,j) = cartname) Then If (SQLQueryId = "") Then SQLQueryId = "Id = '" & Session("cart")(1,j) & "'" Else SQLQueryId = SQLQueryId & " or Id = '" & Session("cart")(1,j) & "'" End If End If Next Next End If SQLQuery = SQLQuery & "and " & SQLQueryId Set DB_Response = DB.Execute(SQLQuery) items = 0 While Not DB_Response.EOF DB_Response.MoveNext items = items + 1 Wend Set DB_Response = DB.Execute(SQLQuery) '********************************************************************** totalPrice = 0 Do While Not DB_Response.EOF pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" DB_Response.MoveNext Loop If ((totalPrice <> 0) and (cartname = "k1")) Then pageValue = pageValue & "" End If Else If (totalPrice = 0) Then pageValue = pageValue & "" If (cartname = "k1") Then pageValue = pageValue & "Indkøbsvogn for købstæpper" End If If (cartname = "k2") Then pageValue = pageValue & "Indkøbsvogn for udvalgstæpper" End If pageValue = pageValue & ":" pageValue = pageValue & "
OmrådeBreddeLængdePris
" & DB_Response("Area") & ", " & DB_Response("Country") & "" & DB_Response("Width") & "" & DB_Response("Length") & "kr. " If IsArray(Session("cart")) Then For j = 0 to UBound(Session("cart"),2) If ((Session("cart")(0,j) = cartname) and (Session("cart")(1,j) = DB_Response("Id"))) Then pageValue = pageValue & FormatNumber(Cint(DB_Response("Price")) * Cint(Session("cart")(2,j)),2,,,-2) totalPrice = totalPrice + Cint(DB_Response("Price")) * Cint(Session("cart")(2,j)) End If Next End If pageValue = pageValue & "
Ialtkr. " & FormatNumber(totalPrice,2,,,-2) & "
" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" End If End If pageValue = pageValue & "
OmrådeBreddeLængdePris
tom

" END Function pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "
Deres navn:
Deres e-mail:

" pageValue = pageValue & "Adresse hvor De ønsker leveret til:
" pageValue = pageValue & "

" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "    " pageValue = pageValue & "    " pageValue = pageValue & "" pageValue = pageValue & "
" pageValue = pageValue & "" Response.Write pageValue End If If ((cartorder <> "") and (send <> "")) Then pageValue = "" VPath = Request.ServerVariables("PATH_INFO") VPath = Left(VPath, InStrRev(VPath, "/main/")) pageValue = pageValue & "Bestilling" pageValue = pageValue & "Bestilling

" ordercart2("k1") ordercart2("k2") Function ordercart2(cartname) If IsArray(Session("cart")) Then For j = 0 to UBound(Session("cart"),2) If (Session("cart")(0,j) = cartname) Then verifyaccept = true End If Next End If If (verifyaccept) Then pageValue = pageValue & "" If (cartname = "k1") Then pageValue = pageValue & "Købstæpper" End If If (cartname = "k2") Then pageValue = pageValue & "Udvalgstæpper" End If pageValue = pageValue & ":" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" '********************************************************************** '** dbConnect ********************************************************* '********************************************************************** Set DB = Server.CreateObject("ADODB.Connection") VPath = Request.ServerVariables("PATH_INFO") VPath = Left(VPath, InStrRev(VPath, "/main/")) DefDir = Request.ServerVariables("PATH_TRANSLATED") DefDir = Left(DefDir, InStrRev(DefDir, "\main\")) DB.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath(VPath & "carpets/database.mdb") & ";DefaultDir=" & DefDir & "carpets;UID=admin;PWD=1919;" DB.Open '********************************************************************** '** dbSearch ********************************************************** '********************************************************************** dim items SQLQuery = "SELECT * FROM Products WHERE Status = 'InStock' and Online = true " If IsArray(Session("cart")) Then For i = 0 to UBound(Session("cart"),1) For j = 0 to UBound(Session("cart"),2) If (Session("cart")(0,j) = cartname) Then If (SQLQueryId = "") Then SQLQueryId = "Id = '" & Session("cart")(1,j) & "'" Else SQLQueryId = SQLQueryId & " or Id = '" & Session("cart")(1,j) & "'" End If End If Next Next End If SQLQuery = SQLQuery & "and " & SQLQueryId Set DB_Response = DB.Execute(SQLQuery) items = 0 While Not DB_Response.EOF DB_Response.MoveNext items = items + 1 Wend Set DB_Response = DB.Execute(SQLQuery) '********************************************************************** totalPrice = 0 Do While Not DB_Response.EOF pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" DB_Response.MoveNext Loop If ((totalPrice <> 0) and (cartname = "k1")) Then pageValue = pageValue & "" pageValue = pageValue & "" End If Else If (totalPrice = 0) Then pageValue = pageValue & "" If (cartname = "k1") Then pageValue = pageValue & "Købstæpper" End If If (cartname = "k2") Then pageValue = pageValue & "Udvalgstæpper" End If pageValue = pageValue & ":" pageValue = pageValue & "
IdOmrådeBreddeLængdePris
" & DB_Response("Id") & "" & DB_Response("Area") & ", " & DB_Response("Country") & "" & DB_Response("Width") & "" & DB_Response("Length") & "kr. " If IsArray(Session("cart")) Then For j = 0 to UBound(Session("cart"),2) If ((Session("cart")(0,j) = cartname) and (Session("cart")(1,j) = DB_Response("Id"))) Then pageValue = pageValue & FormatNumber(Cint(DB_Response("Price")) * Cint(Session("cart")(2,j)),2,,,-2) totalPrice = totalPrice + Cint(DB_Response("Price")) * Cint(Session("cart")(2,j)) End If Next End If pageValue = pageValue & "
Ialt inkl. 25% momskr. " & FormatNumber(totalPrice,2,,,-2) & "
Moms udgørkr. " & FormatNumber(totalPrice*2/10,2,,,-2) & "
" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" End If End If pageValue = pageValue & "
IdOmrådeBreddeLængdePris
tom

" END Function pageValue = pageValue & "Kundeinformationer:" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "" pageValue = pageValue & "
Navn" & Request("FromName") & "
E-mail" & Request("From") & "
Adresse" & Replace(Request("address"), vbCRLF, "
") & "

" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.persodan.dk" Mail.From = Request("From") ' kundes emailaddresse Mail.FromName = Request("FromName") ' kundes navn (optional) Mail.AddAddress Request("To") ' modtager emailadresse Mail.Subject = Request("Subject") ' emne Mail.Body = pageValue ' message body in html Mail.IsHTML = True On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred Response.Write "

Error occurred: " & Err.Description & "" else Response.Write "Kvittering for afsendt e-mail" Response.Write "Tak for Deres bestilling

" Response.Write "Vi har nu modtaget Deres bestilling og vender tilbage snarest muligt.

Mvh.
Persodan


" Response.Write "" End If End If '------------end----------- %>