Ordenar El CODIGO

[DICTADOR]

lo que tenes que hacer es definir tus variables osea la de conexion una vez y las otras 2 ejemplo:

DIM coon , rs1 , rs2

y solo cerrar la conexion al final ...


algo asi mas o menos:



<%
Dim oConn, rs1, SQL1 ,rs, SQL , nombre, nombre1

set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("user.mdb")


SQL1="SELECT MAX(Id)AS ElMax FROM Contador WHERE Nombre like 'cog'"

set rs1 = oConn.Execute(SQL)
if rs1.EOF then
Response.Write("No hay ningún registro en esta tabla")
else
dim maximo
maximo = rs1.Fields("ElMax")
rs1.Close
set rs1 = nothing


SQL="SELECT * FROM Contador WHERE Id like "& maximo &""
set rs = oConn.Execute(SQL)
dim direc
direc = rs.Fields("IP")
Response.Write direc

' PintarTabla
end if

rs.Close
set rs = nothing
oConn.Close
set oConn = nothing



%>