[Code]
<%
' ---------- ' ----- ' Make Database Connection ' ----- ' ---------- Dim DatabasePath Dim DatabaseConnection Dim DatabaseSQLConnection Set DatabaseConnection = Server.CreateObject("ADODB.Connection") DatabaseSQLConnection = "Provider=SQLOLEDB; Data Source=SERVERNAME\SQLSERVER; Initial Catalog=YOURDATABASE; User Id=USERNAME; Password=PASSWORD;" DatabaseConnection.Open DatabaseSQLConnection ' ---------- ' ----- ' Done ' ----- ' ---------- ' ---------- ' ----- ' Now Connect To Your Table By Running A SQL Command ' ----- ' ---------- TableSQL = "SELECT * FROM YourTable;" Set TableRecord = DatabaseConnection.Execute(TableSQL) ' ---------- ' ----- ' Done ' ----- ' ---------- ' ---------- ' ----- ' Now Generate The Results From Your Table ' ----- ' ---------- If TableRecord.EOF Then Response.Write ("<p>No Records Found</p>") End If ' ----- Do While Not TableRecord.EOF Response.Write ("<p>" & TableRecord("YourColumnNameInTable") & "</p>") TableRecord.MoveNext Loop ' ---------- ' ----- ' Now Terminate Your Table Connection ' ----- ' ---------- TableRecord.Close Set TableRecord = Nothing ' ---------- ' ----- ' Done ' ----- ' ---------- ' ---------- ' ----- ' Finally Terminate Your Database Connection ' ----- ' ---------- DatabaseConnection.Close Set DatabaseConnection = Nothing ' ---------- ' ----- ' Done ' ----- ' ---------- %> | 
