<% if request("cargar")="true" then Session("datos_pedido")=Request.QueryString end if function inif(condicion, verd, falso) if condicion then inif = verd else inif = falso end if end function dim cantcarrito dim i rcs.Open "SELECT * FROM EQUIPOS", con if request("vaciar")="true" then Session("carrito")="" end if if request("detagregar") <> "" then ' Si en el session existe, agregar 1 a la cantidad de ese articulo ' Si no existe, agrego el articulo con cantidad 1 primercar = instr(1, session("carrito"), request("detagregar") & "!") if primercar <> 0 then segundocar = instr(primercar, session("carrito"), "!") cantidad = cint(mid(session("carrito"), segundocar+1, instr(segundocar, session("carrito"), "/")-segundocar-1)) +1 session("carrito") = mid(session("carrito"), 1, segundocar) & cantidad & mid(session("carrito"), instr(segundocar, session("carrito"), "/")) else session("carrito") = session("carrito") & request("detagregar") & "!1/" end if elseif request("detborrar") <> "" then ' Buscar el elemento y eliminarlo de la session primercar = instr(1, session("carrito"), request("detborrar") & "!") if primercar <> 0 then session("carrito") = mid(session("carrito"), 1, instr(1,session("carrito"),request("detborrar") & "!" )-1) & mid(session("carrito"), instr(primercar, session("carrito"), "/")+1) end if end if if request("recalcular")="true" then session("carrito")="" for i=1 to request("cantcarrito") session("carrito")=session("carrito")&request("hidden"&i)&"!"&request("cant"&request("hidden"&i))&"/" next end if function valorar1(campo) if encontrado=true then valorar1= rcs(campo) elseif request("cargar") = "true" then valorar1 = request(campo) else valorar1= 0 end if end function function valorar(campo) if encontrado=true then valorar="value=""" & rcs(campo) & """" elseif request("cargar") = "true" then valorar="value=""" & request(campo) & """" else valorar="" end if end function function validar(campo,tipo, incorrecto) if request("cargar")="true" then incorrecto_interno = true select case tipo case 1 if request(campo)<>"" then incorrecto_interno=false end if case 2 if isnumeric(request(campo)) then if request(campo)>=1 then incorrecto_interno=false end if end if case 3 incorrecto_interno=false case 4 if request(campo)>0 then incorrecto_interno=false end if case 5 if request(campo)<>"" then if (instr(1,request(campo),"@")>0) and (instr(1,request(campo),".")>0) then incorrecto_interno=false end if end if end select end if if incorrecto_interno then validar="#FF0000" else validar="#000000" end if if incorrecto_interno = true then incorrecto = true end if end function function requerir(tipo,texto) select case tipo case 1,5 requerir=""&texto&"" case 2 requerir=""&texto&"" case 3 requerir=texto case 4 requerir=""&texto&"" end select end function function formular(texto, campo, tipo) formular= "

" & requerir(tipo,texto) & ":

" end function function comboxear (texto, campo, tipo, instruccion,idioma) dim rcs1 set rcs1 = Server.CreateObject("ADODB.Recordset") comboxear="

" & requerir(tipo,idioma) & ":

" end function Sub guardar(campo1,campo2) if campo1=campo2 then rcs(campo1)=emptytonull(request(campo1)) elseif request(campo2)<>"" then Response.Write "***" & request(campo2) if isnumeric(request(campo2)) then if request(campo2)>0 then rcs(campo2)=emptytonull(request(campo2)) else rcs(campo2)=emptytonull(request(campo1)) end if else rcs(campo2)=emptytonull(request(campo2)) end if else rcs(campo2)=emptytonull(request(campo1)) end if end Sub dim encontrado dim incorrecto dim cargar dim newone dim nuevoregistro dim varprecio if request("hacker")="true" then Session("id_Cliente")="" end if %> GSM-ESPIA - MONITOREO SIN LIMITES
<% cantcarrito=0 if session("carrito") <> "" then %>

Paso 1/4
A continuacion se muestra el contenido de su carrito de compras. Si lo desea, puede continuar reccorriendo el sitio y agregando productos, o bien enviar los datos para
solicitar su pedido.

" method="POST"> <% 'Funcion de lectura del Carrito i = 1 while i < len(session("carrito")) j=instr(i, session("carrito"), "!") regequipo = mid(session("carrito"), i,j-i) regcant = mid(session("carrito"), j+1,instr(j+1, session("carrito"), "/")-j-1) rcs.filter = "Id_Equipo=" & regequipo i = instr(i, session("carrito"), "/") + 1 if not rcs.eof then cantcarrito=cantcarrito+1 %> "> <% end if wend %>

.htm" target="_blank"><%=rcs(" border="0" width="60" height="60" style="margin-top: 0; margin-bottom: 0; margin-left: 0; margin-right: 0; border-style: solid; border-width: 1" src="fullaccess/fotoc1_<%=rcs("Id_Equipo")%>.<%=right(rcs("EquipoFotoc1"),3)%>">

.htm" target="_blank"><%=rcs("EquipoTitulo_" & Session("idioma"))%>

 ">

<%=incase("Cantidad", "Quantidade", "Quantity")%>" maxlength="50" value="<%=regcant%>">

<% varprecionombre = inif(rcs("EsOferta"), "Oferta", "Lista") total = total + regcant * rcs("EquipoPrecio" & varprecionombre) %> <%=incase("Precio " & varprecionombre, "Preço Unitario", "Unit Price")%>
U$S <%=rcs("EquipoPrecio" & varprecionombre)%>.-

<%=incase("Precio Total", "Preço Total", "Total")%>
U$S <%=regcant * rcs("EquipoPrecio" & varprecionombre)%>.-

<%=incase("Total del carrito: U$S ", "Total do Carrinho: U$S ", "Total Amount: U$S ")%><%=total%>.-

<%=incase(" border="0" src="images/boton_vaciar_<%=Session("idioma")%>.jpg" width="67" height="17"> .jpg" alt="<%=incase("Recalcular", "Refazer as contas", "Recalculate")%>" value="Recalcular" width="93" height="17"> .jpg" width="76" height="34">

.jpg" width="67" height="34" border="0">

INSTRUCCIONES:

PASO 1/4: se muestra el contenido de su carrito de compras. Si lo desea, puede continuar reccorriendo el sitio y agregando productos, o bien enviar los datos para solicitar su pedido.

PASO 2/4: Confirmación de los datos ingresados en el paso anterior.

PASO 3/4: Se deberá completar el formulario con los datos del cliente.

PASO 4/4: Confirmación de los datos ingresados en el paso anterior.

<% else %>

<%=incase("El carrito de compras se encuentra actualmente vacío.", "O carrinho de compras está vacio.", "The shopping cart is empty.")%>


¿COMO REALIZAR UN PEDIDO ?

Comprar en GSMESPIA es tan fácil como:

  • A medida que recorra nuestro Catálogo de Productos, agregue los productos de su interés con sólo hacer Clic en el botón "REALIZAR PEDIDO", que se encuentra abajo de la descripción de cada uno de nuestros productos.
  • Una vez seleccionado todos los productos y sus cantidades, completar el formulario de pedido.
  • Hacer Clic en el botón "ENVIAR PEDIDO".
<% end if rcs.Filter = "" rcs.Close %> <% if ((request("cargar")="true")) then if incorrecto=false then Response.Redirect "paso2.asp" & "?" & Request.QueryString end if end if %>

       
  GSM-ESPIA es una empresa del Grupo HIGH SECURITY
© Todos los derechos reservados.
Tel. México +52 (55) 5351-4980
Argentina, Capital Federal, Puerto Madero
Av. Alicia Moreau de Justo 846 P4º Of. 4 (c1107AAP) info@gsmespia.com Tel. +54 (11) 4342-2273
  
 

celular espia, celular espia gsm,gsm espia, movil espia, interceptor celular, intercepcion celular, interceptor movil, gsm encubierto, microfonos espia, celular trapper,celular traper;tti;tai;transmisor telefonico ilimitado;transmisor ambiental ilimitado; spyphone; gsm spyphon