Ayuda Urgente: Coneccion intranet
Publicado por Luis Gerardo (7 intervenciones) el 12/08/2003 16:40:41
Tengo el siguiente codigo para una coneccion para montar un pagina no se si me hace falta algo para poderlo llamar desde internet alguien me puede ayuda a resolver esto...
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<P><INPUT id=aa name=aa </P>
<SCRIPT LANGUAGE=vbscript RUNAT=Server>
public conexion, rs, consulta, strconn
set conexion = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
strconn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strconn = strconn & Server.MapPath("amonitoronline.mdb") & ";"
strconn = strconn & "User Id =Admin;Password=;"
consulta="SELECT * FROM monitor Where fecha=#31/10/2002#;"
conexion.open strconn
rs.Open consulta, strconn
<!--
aa.value = rs.Fields("icarroceria")
-->
</SCRIPT>
</BODY>
</HTML>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<P><INPUT id=aa name=aa </P>
<SCRIPT LANGUAGE=vbscript RUNAT=Server>
public conexion, rs, consulta, strconn
set conexion = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
strconn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strconn = strconn & Server.MapPath("amonitoronline.mdb") & ";"
strconn = strconn & "User Id =Admin;Password=;"
consulta="SELECT * FROM monitor Where fecha=#31/10/2002#;"
conexion.open strconn
rs.Open consulta, strconn
<!--
aa.value = rs.Fields("icarroceria")
-->
</SCRIPT>
</BODY>
</HTML>
Valora esta pregunta
0