Undersøge om der er fejl i oprettelse af forbindelse til db

Prøv med
on error resume next
i stedet for
On Error GoTo 0

Hilsen Glen

Nope ... den udskriver stadig fejlen istedet for at vidersende brugeren! Kan det hele have noget at gøre med at min side kaldes ved den bliver inkluderet fra en anden side og jeg derfor midt på en anden side kalder ovenstående funktion? Skal jeg lave min redirect med en javascript eller hva?

Det burde være lige meget om siden er inkluderet eller ej.

Prøv at sætte
option explicit
ind før
on error resume next


Så der kommer til at stå:
option explicit
on error resume next

Det hjælper ikke.

Okay, nu har jeg selv prøvet at lave det i en funktion. Jeg kan kun få det til at virke hvis jeg sætter
option explicit
ud før funktionen.
Så din kode kommer til at hedde:
option explicit
Function dbOpen()
   
    ' Undersøger om der er fejl i database forbindelsen
    on error resume next
   
    Connection_string = "driver={MySql};pwd="& cSql_Password &";uid="& cSql_Login &";database="& cSql_Database &";server="& cSql_Serverip
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set RS = Server.CreateObject("ADODB.Recordset")
    Conn.Open Connection_string
   
    ' Hvis der var fejl i database forbindelsen så sendes brugeren til en fejl side
    If Err.Number > 0 Then
        Response.redirect("401.shtml")
    End If
   
End Function

Håber det virker nu. Ellers ved jeg ikke hvad der kan være galt.

Det giver:

Microsoft VBScript compilation error '800a0400'

Expected statement

/db.asp, line 22

option explicit
^

Er det ikke fordi den skal ligge på min side som inkluder funktionen og dens side?

jeg har kun lagt den i den fil, hvor funktionen ligger.

Min test script ser sådan nu:
Error.asp
<!--#include file="error2.asp"-->
<%
dbOpen()
%>

Error2.asp
<%
option explicit
sub dbOpen()
    ' Undersøger om der er fejl i database forbindelsen
   
    on error resume next

   
    Connection_string = "driver={MySql};pwd="& cSql_Password &";uid="& cSql_Login &";database="& cSql_Database &";server="& cSql_Serverip
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set RS = Server.CreateObject("ADODB.Recordset")
    Conn.Open Connection_string
   
    ' Hvis der var fejl i database forbindelsen så sendes brugeren til en fejl side
    If Err.Number > 0 Then
        Response.write "FEJL"
    End If
end sub
%>

Og den udskriver FEJL

Jeg ved desværre ikke hvad der kan være galt med din kode :(
Men du må have held og lykke med at få problemet løst

glen5000 ... smid et svar så vi kan få lukket dette spørgmål. Jeg fik det til at virker efter noget tid ...

Det kommer her :)