<%
on error resume next
'=== Create ADO Connection Object
Set ac = Server.CreateObject("ADODB.Connection")
'=== Build connection string and then Open connection
strSQL7 = "driver=[sql server];server=mySQLServer;database=Northwind;uid=mas;pwd=secret"
ac.Open strSQL7
'=== Detect if there was an error connection to the database
If err.number <> 0 Then
Response.Write "There was an error connecting to the database: "
Response.Write Err.number & " - " & Err.Description
Response.End
End If
Sub drawTable(rs, border, cellspacing, cellpadding, width, align)
If NOT rs.EOF Then
Response.Write "" & chr(10)
intColumn = 1
Response.Write ""
For Each field In rs.Fields
Response.Write "| " & field.name & " | "
intColumn = intColumn + 1
Next
Response.Write "
" & chr(10)
altRow = FALSE
j = 0
While j < intPageSize AND NOT rs.EOF
If altRow = TRUE Then
Response.Write ""
Else
Response.Write "
"
End If
For each field in rs.Fields
thisValue = field.value
If len(thisValue) = 0 Then thisValue = " "
Response.Write "| " & thisValue & " | " & chr(10)
Next
Response.Write "
" & chr(10)
altRow = NOT altRow
rs.MoveNext
j = j + 1
Wend
Response.Write "
"
Else
Response.Write "The query returned no data.
"
End If
End Sub
Sub drawPaging
Response.Write ""
If intPageNum > 1 Then
Response.Write "PREVIOUS "
End If
For j = 1 To intPageCount
If j = CINT(intPageNum) Then
Response.Write " " & j & " "
Else
Response.Write " " & j & " "
End If
Next
If CINT(intPageNum) < intPageCount Then
Response.Write " NEXT "
End If
Response.Write "
"
End Sub
%>