Ordenar El CODIGO

[doncog]

hola pienso que abrir dos veces la base de dato no es correcto bueno si me pueden ordenar el codigo se los agradeceria.

el codigo lo cree para que busque el Id mayor y Nombre sea cog.
y despues me muestre el Ip de eesee... bueno gracias

<%
Dim oConn, rs, SQL
Dim nombre
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("user.mdb")
SQL="SELECT MAX(Id)AS ElMax FROM Contador WHERE Nombre like 'cog'"

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

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

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



%>

[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



%>