Un saludo a todos los que conforman este foro, molestandolos de nuevo como puedo compara dos tablas en ASP, ya que en una guardo los valores adquiridos y en la otra tengo el nombre y direcciones locales.
Aqui esta el codigo del programa, lo que quiero compara es si la ip que tengo en TablaEjemplo es igual a la que tengo tabla1 que me imprima el nombre del usuario.
<%
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= " & Server.MapPath("base.mdb")
SQL="SELECT * FROM TablaEjemplo ORDER BY Id"
rs.Open SQL, oConn, 1, 2
rs.AddNew
rs.Fields("Fecha")=Date
rs.Fields("IP") = Request.ServerVariables("REMOTE_ADDR")
rs.Fields("Software") = Request.ServerVariables("SERVER_SOFTWARE")
str_varserver=request.servervariables("http_user_a gent")
response.write "PROGRAMA DE MATENIMIENTO DE PC"
str_temp=mid(str_varserver,instr(str_varserver,"(" )+1)
str_temp=mid(str_temp,1,instr(str_temp,")")-1)
mat=split(str_temp,";")
explorador=mid(str_varserver,1,instr(str_varserver ,"(")-1)+mat(1)
rs.Fields("Internet Explorer") = explorador
rs.Fields("Sistema Operativo") = trim(mat(2))
xy=len(request.servervariables("http_user_agent"))
if xy<=55 then
rs.Fields("Service Pack") = "No tiene instalado el Ser Pack"
else
rs.Fields("Service Pack") = trim(mat(3))
end if
rs.Update
rs.MoveFirst
rs.Close
Mantenimiento
set rs = nothing
oConn.Close
set oConn = nothing
Sub PintarTabla ()
Response.Write( "<TABLE BORDER=""1"">" & vbCrlf)
Response.Write( "<TR>" & vbCrlf)
Response.Write( "<TD><B>Id</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Fecha</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Dirección IP</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Internet Explorer</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Sistema Operativo</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Service Pack</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Software</B></TD>" & vbCrlf )
while not rs.EOF
Response.Write( "<TR>" & vbCrlf )
Response.Write( "<TD>" & rs.Fields("Id") & "</TD>" )
Response.Write( "<TD>" & rs.Fields("Fecha") & "</TD>" )
Response.Write( "<TD>" & rs.Fields("IP") & "</TD>" )
Response.Write( "<TD>" & rs.Fields("Internet Explorer") & "</TD>" )
Response.Write( "<TD>" & rs.Fields("Sistema Operativo") & "</TD>" )
Response.Write( "<TD>" & rs.Fields("Service Pack") & "</TD>" )
Response.Write( "<TD>" & rs.Fields("Software") & "</TD>" )
Response.Write( "</TR>" & vbCrlf )
rs.MoveNext
wend
Response.Write("</TABLE>")
End Sub
Sub Mantenimiento
rs.Open SQL, oConn, 1, 2
iCuantos = rs.RecordCount
while iCuantos > 10000
rs.MoveFirst
rs.Delete
rs.Update
iCuantos = iCuantos - 1
wend
rs.Close
End Sub
%>
Espero que me puedan ayudar con este pequeño problema gracias.