<%@ Language=VBScript%> <% REM Connection Cache Set ConnectionCache = CreateConnectionCache() REM server-side recordset Set RsUtenti = CreateRS("RsUtenti", "ordini", "admin", "", "SELECT * FROM Utenti", "", true, 2, 3, 3, "") Call RsUtenti.Open() Call RsUtenti.ProcessAction() Call RsUtenti.SetMessages("Non ci sono altri records","Non records") Call RsUtenti_Server() REM server-side recordset Set RigheOrdine = CreateRS("RigheOrdine", "ordini", "admin", "", "Select * from RigheOrdini Order by DescrIta", "", true, 2, 3, 3, "") Call RigheOrdine.Open() Call RigheOrdine.ProcessAction() Call RigheOrdine.SetMessages("","") REM server-side recordset Set TestataOrdine = CreateRS("TestataOrdine", "ordini", "admin", "", "Select * from TestateOrdini", "", true, 2, 3, 3, "") Call TestataOrdine_BeforeOpen() Call TestataOrdine.Open() Call TestataOrdine.ProcessAction() Call TestataOrdine.SetMessages("","") Call TestataOrdine_Server() %> <% set Cestino = CallCestinoConstructor() vbErrorFuncCestinoServer() vbErrorFuncCestinoPostServer() %> <% Sub RsUtenti_Server() if (CStr(Session("CodUtente")) <> "") then serverVar = Session("CodUtente") RsUtenti.Filter("CodUtente" & " = '" & serverVar & "'") end if if (CStr(RsUtenti.GetColumnValue("CodUtente")) <> CStr(Session("CodUtente"))) then Response.Redirect(URLEscapeSpaces("FailedLogin.asp")) end if if (CStr(Request("ModificaDatiUtenti")) <> "") then Response.Redirect(URLEscapeSpaces("ModificaDatiUtente.asp") & "?" & "RsUtenti_Position=" + Server.URLEncode(RsUtenti.GetState())) end if End Sub ' inserimento della testata dell'ordine ' ------------------------------------------- Sub TestataOrdine_Server() ' ' bisogna controllare che non sia gia' stato inserito ' if session("OrderId") = "" then if CStr(Request("FormButton2")) <> "" then TimeStamp = GetTimeInMillisec() Call TestataOrdine.AddBinding("TimeStamp", TimeStamp, "VAL") Call TestataOrdine.Insert() if (TestataOrdine.CursorLocation = 3) then Call TestataOrdine.RS.Requery() ' Call TestataOrdine.Filter("TimeStamp" & " = '" & TimeStamp & "'") Session("OrderID") = TestataOrdine.GetColumnValue("IdOrdine") end if end if End Sub ' ' Dovrebbe scrivere qui (Fabio) OK ' Sub TestataOrdine_BeforeOpen() if CStr(Request("Cap")) <> "undefined" then Call TestataOrdine.AddBinding("Cap", "Cap", "FRM") end if if CStr(Request("Citta")) <> "undefined" then Call TestataOrdine.AddBinding("Citta", "Citta", "FRM") end if if CStr(Request("Email")) <> "undefined" then Call TestataOrdine.AddBinding("Email", "Email", "FRM") end if if CStr(Request("IdUtenteHidden")) <> "undefined" then Call TestataOrdine.AddBinding("CodUtente", "IdUtenteHidden", "FRM") end if if CStr(Request("Indirizzo")) <> "undefined" then Call TestataOrdine.AddBinding("Indirizzo", "Indirizzo", "FRM") end if if CStr(Request("Nominativo")) <> "undefined" then Call TestataOrdine.AddBinding("Nominativo", "Nominativo", "FRM") end if if CStr(Request("Provincia")) <> "undefined" then Call TestataOrdine.AddBinding("Provincia", "Provincia", "FRM") end if if CStr(Request("CodFiscale")) <> "undefined" then Call TestataOrdine.AddBinding("CodFiscale", "CodFiscale", "FRM") end if if CStr(Request("SpeseSpedHidden")) <> "undefined" then Call TestataOrdine.AddBinding("SpeseSpedizione", "SpeseSpedHidden", "FRM") end if if CStr(Request("TotaleOrdineHidden")) <> "undefined" then Call TestataOrdine.AddBinding("TotaleOrdine", "TotaleOrdineHidden", "FRM") end if if CStr(Request("Note")) <> "undefined" then Call TestataOrdine.AddBinding("Note", "Note", "FRM") end if DataValue = Request("Costo") TotaleOrdine = Request("TotaleOrdineHidden") ' ' inserimento costo di spedizione ' ue guaglio ' Toglieva le spese se l'importo dell'ordine e' > di 200 ' ==================================================== 'If DataValue = "10.00" then ' poste o SDA > 200 ' ' ' If TotaleOrdine > 200 then ' ' DataValue = "undefined" ' Call TestataOrdine.AddBinding("SpeseSpedizione", "Nascosto", "FRM") ' end if ' 'end if 'if DataValue = "11.00" then ' DHL > 260 ' If TotaleOrdine > 260 then ' ' DataValue = "undefined" ' Call TestataOrdine.AddBinding("SpeseSpedizione", "Nascosto", "FRM") ' end if' 'end if if (DataValue <> "") And (DataValue <> "undefined") then Call TestataOrdine.AddBinding("SpeseSpedizione", "Costo", "FRM") end if 'DataValue = CStr(Request("Group1")) ' 'if (DataValue <> "") And (DataValue <> "undefined") then ' Call TestataOrdine.AddBinding("SpeseSpedizione", "Group1", "FRM") 'end if if CStr(Request("List2")) <> "" then Call TestataOrdine.AddBinding("ModalitaPagamento", "List2", "FRM") end if End Sub ' Sub Cestino_PostServer() if Cestino.GetItemCount() <> 0 then Cestino.SetShipping("8.00") end if End Sub ' Sub Cestino_Server() if IsObject(RigheOrdine) then if CStr(Request("FormButton2")) <> "" And Cestino.GetItemCount() > 0 then ' Get the OrderID OrderID = Session("OrderID") ' If the OrderID exists,then add cart items if CStr(OrderID) <> "" then Cestino.Update() Call Cestino.InsertInDatabase(RigheOrdine, OrderID, "IdOrdine") Cestino.Destroy() if (CInt("1")) then Response.Redirect(URLEscapeSpaces("OrdineInserito.asp")) end if else Response.Redirect(URLEscapeSpaces("OrdineNonInserito.asp")) end if end if else Response.Write("
Drumbeat Interaction Message: Please make sure that the Recordset icon, RigheOrdine, is to the left of the ShoppingCart icon, Cestino, in the basement of the layout.
") Response.End end if End Sub Sub Text23_Server(html) Response.Write(ReplaceTokensWithTimeDate(html, CInt("1"), 0)) End Sub %> ingl.langue.html

 

 

 

 

WWW.ISLANDPARADISE

 

If you are interested to our products and you want the delivery in your country, choose the products and the quantities and send an e-mail to Info@zipposport.com

We will quickly calculate the costs and the times of delivery and we will quickly inform you.

Thanks for your interest.
island paradise rome