<%@ LANGUAGE="VBScript"%>
<%Response.ExpiresAbsolute = Now()-1%>
Info
<%
Dim conexion, SQL, rs, I
Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open MM_achiever_STRING
if request.querystring("id1") <> "" then
sql="Select * from customers_customize WHERE id = "&request.querystring("id1")&" "
else
sql="Select * from customers_school WHERE id = "&request.querystring("id2")&" "
end if
contador = 2
Set rs=conexion.Execute (sql)
%>
<%
' Recorremos los nombre de los campos. Restamos uno porque los índices empiezan en 0
' We cross the names of the fields. We reduced by one because the indicies begin at 0. (translation by Nick)
for I=0 to rs.Fields.Count-1
if rs.Fields(I).Name = "id" or rs.Fields(I).Name = "serie" then
else
nombrecampo = rs.Fields(I).Name
'namefield =
campo = trim(rs.Fields(I))
'field =
if estilo = 0 then
color = "tabla1-ficha-normal"
'table-card-normal (translation by Nick)
estilo = 1
'style = 1 (translation by Nick)
else
color = "tabla1-ficha-blanco"
'tablle-card-white (translation by Nick)
estilo = 0
'style = 0 (translation by Nick)
end if
%>
<%=nombrecampo%>
<%=campo%>
<%
end if
'counter = counter + 1
contador = contador + 1
next
'Limpiamos objetos
'Clean objects (translation by Nick)
rs.close
%>