<%
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;"
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
%>
Article ID: 169, Created: July 25, 2012 at 12:40 AM, Modified: July 25, 2012 at 12:40 AM