<%
Response.Buffer = True
on error resume next 	

Dim Conn				'Connection Command
Dim Error					'Error numbers
Dim sqltext				'SQL
Dim rs							'Recordset
Dim ConnectionString
Dim ConnectionTimeout
Dim CommandTimeout
Dim CursorLocation

ConnectionString = "DSN=morrislawgr;UID=morrislawgr;PWD=wZzZumjwKIc"
ConnectionTimeout = 15
CommandTimeout = 30
CursorLocation = 3


Set Conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.RecordSet")

Conn.Open ConnectionString

If Conn.Errors.Count > 0 Then
'Errors have occurred so we can iterate the collection
'for more detailed information
	For Each Error In Conn.Errors
		If Error.Number <> 0 then
			Response.Redirect "../rsc/Error.asp?number=" & error.Number & "&desc=" & Server.URLEncode(error.description)
		End If
    Next
End If

on error goto 0
%>