Error script

Er det noen som vet hvordan jeg kan teste et error script? Eller hvordan jeg kan fullføre dette?

'Denne ligger i bunn av alle sider.
'-----------------------------------
'ERROR RAPPORT START
'-----------------------------------
Dim lpn_s,j
lpn_s = request.serverVariables("SCRIPT_NAME")
Dim lookupPageName
lookupPageName = mid(lpn_s, inStrRev(lpn_s, "/") + 1)

if dMode <> true AND err.number <> 0 then
  j = lookupPageName
  for i = 0 to err.Count
    reportError err.number, err.description, err.source, j
  next
end if
'-----------------------------------
'ERROR RAPPORT SLUTT
'-----------------------------------

'Dette er sub`em.....
Sub reportError(errNo, errDesc, errSource, notUsed)
  if dMode <> true then on error resume next
  Dim re_objConn, re_SQLQuery, errPage2
  Set re_objConn = Server.CreateObject("ADODB.Connection")
  errPage = lookupPageName()
  re_objConn.Open strConn
  re_SQLQuery = "INSERT INTO tblErrors (errorDateTime, errorNumber, errorDescription, errorSource, errorPage) VALUES (" & now() & ", " & err.No & ", '" & err.Desc & "', '" & err.Source & "', '" & errPage & "');"
  re_objConn.Execute(re_SQLQuery)
  re_objConn.close
  set re_objConn = nothing
end sub