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.
<%
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
%>

Open in new window

baumli1Asked:
Who is Participating?
 
Daniel WilsonConnect With a Mentor Commented:
You're not doing anything w/ your retrieved data:

Do While NOT Rs.EOF
  Response.write rs.fields(0).value & "<br>"
Rs.MoveNext
Loop

Open in new window

0
 
baumli1Author Commented:
Added that in, and no change, still a blank page.  How can I display error messages so I can at least see if I am getting the connection to work?
0
 
Daniel WilsonCommented:
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:
%>

Open in new window

0
 
baumli1Author Commented:
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.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.