On Error resume next
<операция где может быть ошибка...>
if Err.Number> 0  then
<обработка ошибки>
end if
On Error goto  0 

On Error goto Err1
Call <функции где может быть ошибка>
Exit Sub ' все сделали без ошибок и вышли
Err1:
<обработка ошибок>
end sub

On Error resume next

On Error goto Err1 

try catch

<%
   Dim MaxLines, Str
   MaxLines = CInt(Session("LNum"))  

On error resume next

  Call Connect  
  sSQL = "SELECT TOP " & CStr (MaxLines) & " * FROM Chat Order By DateSaid DESC"  
   
  Rs.open sSQL, Conn  
   
  Do While Not Rs.Eof  
   Str = Rs.Fields("Said").value  
   Response.Write  Str  
   Rs.MoveNext  
  Loop      
   
  Response.Write "<br>"  
   
  Call Close  
%> 

On error resume next

  If Connect  then
    sSQL = "SELECT TOP " & CStr (MaxLines) & " * FROM Chat Order By DateSaid DESC"  
    Rs.open sSQL, Conn  
    Do While Not Rs.Eof  
     Str = Rs.Fields("Said").value  
     Response.Write  Str  
     Rs.MoveNext  
    Loop      
    Response.Write "<br>"  
    Call Close  
  else
    Response.Write "База недоступна (" & Err.Description & ")"
  End If

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы