<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%if isnull(arts) then
dim arts()
dim desc()
dim prec()
dim cant()
dim colo()
dim tall()
dim marc()
session("articulos")=arts
session("descripciones")=desc
session("precios")=prec
session("talles")=tall
session("colores")=colo
session("cantidades")=cant
session("marcas")=marc
session("tamanio")=0
toped=0
else
arts=session("articulos")
desc=session("descripciones")
prec=session("precios")
tall=session("talles")
colo=session("colores")
cant=session("cantidades")
marc=session("marcas")
toped=0
for i=1 to session("tamanio")
toped=toped+prec(i)
next
end if
%>
<%
Dim strConnect
strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath(".")&"\base\baratocity.mdb"
Dim objcat
Set objcat = Server.CreateObject ("ADODB.Recordset")
objcat.Open "SELECT * FROM categorias where categoriaId="+request("cat"), strConnect, adOpenstatic, adLockoptimistic, adCmdTEXT
fon=objcat("fondo")
car=objcat("Carpeta")
carp=right(trim(objcat("carpeta")),4)
cle=objcat("Letra")
objcat.close
set objcat=nothing
Dim objRec,objrec1
Set objRec = Server.CreateObject ("ADODB.Recordset")
Set objRec1 = Server.CreateObject ("ADODB.Recordset")
objRec.Open "SELECT * FROM productos where categoriaId="+request("cat"), strConnect, adOpenstatic, adLockoptimistic, adCmdTEXT
j=0
while objrec.eof<>true
j=j+1
objrec.movenext
wend
objrec.movefirst
ini=(request("ini"))
fin=request("fin")
%>
Baratocity - Donde barato es posible
<%function anumeros(nume)
ns=trim(cstr(formatnumber(nume,2)))
mos=""
for tt=1 to len(ns)
if mid(ns,tt,1)<>"," and mid(ns,tt,1)<>"." then
mos=mos+"![](numeros/"+mid(ns,tt,1)+".jpg)
"
else
mos=mos+"
"
end if
next
anumeros=mos
end function%>
Puede acceder a la lista de precios,bajar el archivo o imprimirla. Una vez que seleccione los artículos que necesite para hacernos llegar su pedido, comentarios, sugerencias ó consultas solo tiene que llenar el formulario de la izquierda sin olvidar ningún campo. Es importante para saber de usted, poder contestarle y atenderlo de la manera que usted se merece. Cualquier duda será atendida por el staff de Baratocity a la mayor brevedad posible. MUCHAS GRACIAS.
