Ayuda a Novato- Conexion SQLServer
Publicado por Luigi (2 intervenciones) el 19/06/2002 05:53:05
Hola
El sig codigo se q deberia fucionar, debe ser muy sencillo pa
alguien q conoce esto,el problema en si esta en la conexion o configuracion del Sevidor 2000 q tengo, por favor ayudenme!!!
Una pag Asp sin conexion a DB si me funciona!!!...
pero esta me sale error
Donde esta mi error ??? la idea q tengo es que Request.ServerVariables("SERVER_NAME") me da = "www.millenium.com" el nombre del dns pero el servidor se llama server_alpha....probe cambiando en los dos casos pero nada!!! ...:
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>Simple ADO Query</TITLE>
</HEAD>
<BODY>
<font size="4" face="Arial, Helvetica">
<b>Simple ADO Query with ASP</b></font><br>
<hr size="1" color="#000000">
<%
Dim oConn
Dim oRs
Dim filePath
Dim Index
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=SQLOLEDB;User ID=sa;Initial Catalog=PUBS;Data Source="& Request.ServerVariables("SERVER_NAME")
Set oRs = oConn.Execute("SELECT * From authors")
%>
<TABLE border = 1>
<%
Do while (Not oRs.eof) %>
<tr>
<% For Index=0 to (oRs.fields.count-1) %>
<TD VAlign=top><% = oRs(Index)%></TD>
<% Next %>
</tr>
%0
El sig codigo se q deberia fucionar, debe ser muy sencillo pa
alguien q conoce esto,el problema en si esta en la conexion o configuracion del Sevidor 2000 q tengo, por favor ayudenme!!!
Una pag Asp sin conexion a DB si me funciona!!!...
pero esta me sale error
Donde esta mi error ??? la idea q tengo es que Request.ServerVariables("SERVER_NAME") me da = "www.millenium.com" el nombre del dns pero el servidor se llama server_alpha....probe cambiando en los dos casos pero nada!!! ...:
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>Simple ADO Query</TITLE>
</HEAD>
<BODY>
<font size="4" face="Arial, Helvetica">
<b>Simple ADO Query with ASP</b></font><br>
<hr size="1" color="#000000">
<%
Dim oConn
Dim oRs
Dim filePath
Dim Index
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=SQLOLEDB;User ID=sa;Initial Catalog=PUBS;Data Source="& Request.ServerVariables("SERVER_NAME")
Set oRs = oConn.Execute("SELECT * From authors")
%>
<TABLE border = 1>
<%
Do while (Not oRs.eof) %>
<tr>
<% For Index=0 to (oRs.fields.count-1) %>
<TD VAlign=top><% = oRs(Index)%></TD>
<% Next %>
</tr>
%0
Valora esta pregunta
0