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

 

 

 

 

WWW.ISLANDPARADISE

Si eres interesado en nuestros productos y quieres la entrega en tu país, eliges los productos y las cantidades y mandar un correo electrónico a info@zipposport.com

Calcularemos rápidamente los costes y los tiempos de transporte y te informaremos velozmente.

Gracias por tu interés.
island paradise rome