<%@ language = "vbscript" %> <%option explicit%> <%response.buffer = true%> <%dim Cn, subsec, prod, low, hi, res, add, lang, fol, tamanio, ruido, totalbytes, rndchar, kbps const kilobits = 384 'cantidad de bytes que se envían al cliente para calcular el ancho de banda multiplicado por 8. nota: un valor más grande da más exactitud en la medición, un valor menor da más rapidez en la obtención de los resultados Set Cn = server.CreateObject("ADODB.Connection") strtcn = "Provider=SQLOLEDB;Data Source=sql.redynet.com.ar;Initial Catalog=arquinoxidable;User ID=sqlarqui;Password=arqui;" Cn.open strtcn 'application("aConn") subsec = request.querystring("subsec") prod = request.querystring("prod") lang = request.querystring("lang") kbps = request.querystring("kbps") res = request.querystring("res") add = "" fol = "" if subsec <> "" and prod <> "" and lang <> "" then add = "subsec=" & subsec & "&prod=" & prod & "&lang=" & lang if not res = "" then session.timeout = 60 if res = "hi" then session("res") = "hi" else session("res") = "low" if res = "hi" then tamanio = ",width=1012,height=661" else tamanio = ",width=788,height=493" session("kbps") = kbps if not add = "" then fol = "f" 'abrir frames select case lang case "spa" response.cookies("lang") = "spa" response.cookies("lang").expires = dateserial(2038, 1, 19) case "por" response.cookies("lang") = "por" response.cookies("lang").expires = dateserial(2038, 1, 19) case "ita" response.cookies("lang") = "ita" response.cookies("lang").expires = dateserial(2038, 1, 19) case "ing" response.cookies("lang") = "ing" response.cookies("lang").expires = dateserial(2038, 1, 19) case else fol = "l" 'abrir language end select else fol = "l" 'abrir language end if else low = "default.asp?res=low" hi = "default.asp?res=hi" if add <> "" then low = low & "&" & add hi = hi & "&" & add end if end if %> Arquinoxidable <%select case fol case "f" 'abro frames.asp pasándole los parámetros de subsec y prod%> <%case "l" 'no se pasaron parámetros de subsec y prod, abro directamente language.asp%> <%case else 'aún no se detectó nada, debo pasar por los scripts de detección de ancho de banda y resolución de pantalla %> <%end select %>
  (13 MB aprox.)

Secciones  <%Dim Rs Set Rs = server.CreateObject("ADODB.Recordset") Rs.Open "SELECT Id, Nombre, Alias FROM PDF WHERE Tipo='S'", Cn%>
Productos  <%Rs.Open "SELECT Id, Nombre, Alias FROM PDF WHERE Tipo='P'", Cn%> <%Rs.Close Set Rs = Nothing%>
 
Este sitio requiere el plugin
de Macromedia Flash.
  Para ver el contenido del catálogo necesita tener instalado el Acrobat Reader
 
 www.arquinoxidable.com
<%Cn.Close Set Cn = Nothing session("paginas")=Request.Cookies("paginas")%>