<%@ Language=VBScript %>
<%
Dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "driver={SQL Server};" & _
"server=11.111.11.111;" & _
"Address=11.111.11.111,1433;" & _
"Network=DBMSSOCN;" & _
"uid=myusername;" & _
"pwd=mypwd;" & _
"database=mysqldatabase;"
Dim strSQL, rs
strSQL = "Select lastname from mysqltable"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, conn
Response.Write "Connection Works!
"
Response.Write "Database Records Below
"
do while not rs.EOF
Response.Write rs("lastname")
Response.Write "
"
rs.MoveNext
loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>