baumli1
asked on
Can't get classic asp connection to work with sql server 2005
I'm trying to connect an asp page to a sql server 2005 database. The asp page is on an IIS server, on two different servers. This is not an express edition.
I've been able to connect to the database from a php page on an apache2 server, but now I need the IIS to connect, and can't get it to work. When I open the page, I don't get any errors, or anything to display, just a blank page.
Also, since I don't know ASP, I don't know if its the code, or the connection that isn't working. There is data in the database, I've taken the php page that works, and using that to try and make an asp page.
I've been able to connect to the database from a php page on an apache2 server, but now I need the IIS to connect, and can't get it to work. When I open the page, I don't get any errors, or anything to display, just a blank page.
Also, since I don't know ASP, I don't know if its the code, or the connection that isn't working. There is data in the database, I've taken the php page that works, and using that to try and make an asp page.
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.RecordSet")
mserver="server.domain.edu"
dbName="database"
UserID_db="user"
PassWD="password"
strCon="Provider=SQLOLEDB.1;Data Source=" & mServer & ";Initial Catalog=" & _
dbName & ";User ID=" & UserID_db & ";Password=" & PassWD & ";"
Conn.Open strCon
sSQL = "SELECT * FROM myNorthwest_Links1 ORDER BY links_ID ASC"
Set Rs = Conn.Execute(sSQL)
Do While NOT Rs.EOF
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
I'm trying to remember if this works in classic ASP ... it would in VB6 ...
<%
On Error Goto Err_Handler
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.RecordSet")
mserver="server.domain.edu"
dbName="database"
UserID_db="user"
PassWD="password"
strCon="Provider=SQLOLEDB.1;Data Source=" & mServer & ";Initial Catalog=" & _
dbName & ";User ID=" & UserID_db & ";Password=" & PassWD & ";"
Conn.Open strCon
sSQL = "SELECT * FROM myNorthwest_Links1 ORDER BY links_ID ASC"
Set Rs = Conn.Execute(sSQL)
Do While NOT Rs.EOF
Response.write rs.fields(0).value & "<br>"
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
Goto NoError
Err_Handler:
Response.write "ERROR " & err.number & ": " & err.Description
NoError:
%>
ASKER
Yes, the first response was the correct one. I am using a cms that was giving a template to the page, the asp had no template matching sections, so nothing was displaying. Once I told the cms to not apply a template, and add in the Response.write statement in the loop it worked. Thanks for the help.
ASKER