VBScript compilation error

står Const adOpenForwardOnly = 0 iden for <% %> ?

<%

Const ....

%>

Jeg bruger en include fil som hedder _db.asp og her laves adgang til mine databaser. Se udklip her:

<%

    set conn = Server.CreateObject(\"ADODB.Connection\")
    set rs = Server.CreateObject(\"ADODB.Recordset\")
    Set objRec = Server.CreateObject(\"ADODB.Recordset\")
   
    sConnteadmin = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath....osv.
    \'---- CursorTypeEnum Values ----
    Const adOpenForwardOnly = 0
    Const adOpenKeyset = 1
    Const adOpenDynamic = 2
    Const adOpenStatic = 3

    \'---- CursorLocationEnum Values ----
    Const adUseServer = 2
    Const adUseClient = 3

    \'---- CommandTypeEnum Values ----
    Const adCmdUnknown = &H0008
    Const adCmdText = &H0001
    Const adCmdTable = &H0002
    Const adCmdStoredProc = &H0004
    Const adCmdFile = &H0100


    sub OpenDB(sConn)
        conn.open sConn
        set rs.ActiveConnection = conn
        rs.CursorType = adOpenStatic
    end sub
   
    sub CloseDB()
        rs.close
        conn.close
        set rs = nothing
        set conn = nothing
    end sub


sub w(sText)
  response.write sText & vbCrLf
end sub

Det er nok bare fordi din kode fil forsætter men umiddelbart mangler der en %> til sidst!?!

arh fejlen siger Name redefined det er fordi den er defineret en gang før. Includere du _db.asp mere end en gang?

Det kan være den kender de konstanter i forvejen`?

Mit bud er, at du et eller andet sted har inkluderet filen adovbs.inc som er en standard fil der erklærer en næsten uendelig række af konstanter.