Article Rating

  • 0 Rating(s)
  • 0
  • 0
  • 0
  • 0
  • 0

How to query a SQL database with ASP using a DSN-less connection

<%
Dim cnnSimple  ' ADO connection
Dim rstSimple  ' ADO recordset
Set cnnSimple = Server.CreateObject("ADODB.Connection")
' DSNLess
cnnSimple.Open "Provider=SQLOLEDB;Data Source=YOURDBSERVER;" _
            & "Initial Catalog=YOURDBNAME;User Id=YOURUSERID;Password=YOURPASSWORD;" _
            & "Connect Timeout=15;Network Library=dbmssocn;"
Set rstSimple = cnnSimple.Execute("SELECT * FROM tbltest")
%>
<P> Connecting to SQL DB with DSNless connection </P>
<table border="1">
<%
Do While Not rstSimple.EOF
            %>
            <tr>
              <td><%= rstSimple.Fields("id").Value %></td>
              <td><%= rstSimple.Fields("name").Value %></td>
            </tr>
            <%
            rstSimple.MoveNext
Loop
%>
</table>
<%
rstSimple.Close
Set rstSimple = Nothing
cnnSimple.Close
Set cnnSimple = Nothing
%>


If you run into problems when using this code, please post in our community forum. Technical support is unable to assist with specific coding issues.

Article ID: 356, Created On: 11/24/2008, Modified: 4/13/2010