Привет всем!
Имею код:

Dim conMain : Set conMain=CreateObject("ADODB.Connection")
On Error GoTo Ers
With conMain 'Данноые соединение только для чтения данных из БД

.Provider = "SQLOLEDB"
.ConnectionTimeout = 100
.CommandTimeout = 100
.Properties("Data Source").Value = "127.0.0.1"
.Properties("Initial Catalog").Value = "Forum"
.Properties("User ID").Value = "sa"
.Properties("Password").Value = "123456"
.Open
End With


Ers:
If Err.Number = -2147192184 Or Err.Number = -2147467259 Then
MsgBox "Ошибка при соединении с базой, возможно неправильный пароль", vbOKOnly + vbCritical, "Ошибка !"
Else
MsgBox Err.Number & " " & Err.Description
End If

Dim rstMain : Set rstMain=CreateObject("ADODB.Recordset")
With rstMain
.CursorLocation=adUseClient: .CursorType=adOpenForwardOnly : .LockType=adLockReadOnly
End With

'Вызываем хранимую процедуру...
Set rstMain=conMain.Execute("usp_AllForumEntries(" & CStr(curOrder) & ", " & CInt(IdForum) & ")",,adCmdStoredProc)


Set conMain=Nothing 'Поскольку rstMain.CursorLocation=adUseClient соединение можно уже закрывать...

А он выдает ошибку :

Тип ошибки:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/add_Tema.asp, line 92, column 14
On Error GoTo Ers
-------------^
В чем дело, просто хочу обраьотать ошибку подключения, а не получается

Привет ребята
Хочу поблагодорить вас за советы, но чесно говоря я ничерта не понял из всего что вы написали.
Я недавно начал "программировать" :)
Пишу в Фронт-пейдже асп страници на ВБСкрипте
ПОмогите если можете
вот кусок скрипта, надо чтобы при не - коннекте выдавало сообщение, на другойц страниуе, что мол так и так, ошибка подключения к базе данныъ

Спасибо заранее

<%
Dim IdForum 'Массив параметров
IdForum=(CInt(Request.QueryString("entry"))) 'Получаем переданное значение id_entry



Dim dtmTmp, intNumReplies 'Переменная для временного хранения числа ответов и дыты последнего...
Dim strTempVar 'Просто переменная для хранения временных строковых значений


Dim User, pass
User=CStr(Trim(Request.Form("User_name")))
pass=CStr(Trim(Request.Form("password")))



Dim conMain : Set conMain=CreateObject("ADODB.Connection")



With conMain 'Данное соединение только для чтения данных из БД



.Provider = "SQLOLEDB"
.ConnectionTimeout = 100
.CommandTimeout = 100
.Properties("Data Source").Value = "127.0.0.1"
.Properties("Initial Catalog").Value = "Forum"
.Properties("User ID").Value = user
.Properties("Password").Value = pass
.Open

If (user.Value = "User ID") And (pass.Value = "Password") Then
тра та та
Else
тра та та
End If

End With





Dim rstMain : Set rstMain=CreateObject("ADODB.Recordset")
With rstMain
.CursorLocation=adUseClient: .CursorType=adOpenForwardOnly : .LockType=adLockReadOnly
End With

'Вызываем хранимую процедуру...
Set rstMain=conMain.Execute("usp_AllForumEntries(" & CStr(curOrder) & ", " & CInt(IdForum) & ")",,adCmdStoredProc)


Set conMain=Nothing 'Поскольку rstMain.CursorLocation=adUseClient соединение можно уже закрывать...

КТО НИБУТЬ ПОМОГИТЕ!!!

Очень прошу!!!

??????????????????????