Avatar billede voetmann Nybegynder
08. maj 2001 - 00:11 Der er 8 kommentarer

Option Explicit fejl m.m.

Er der nogen her der kan svare mig på denne fejl meddelelse ???

Her er scriptet og fejlmeddelelsen


<%@ Language=VBScript %>
<!--#include virtual=\"/adovbs.inc\"-->
<% Option Explicit %>
   

<%
Dim ObjConn
Set ObjConn = Server.CreateObject(\"ADODB.Connection\")
ObjConn.ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\asp\\Egne Scripts\\landsnyheder.mdb;\"
ObjConn.Open

Dim ObjRS
ObjRS = Server.CreateObject (\"ADODB.Recordset\")
ObjRS.Open \"nyheder\", ObjConn, , , adCmdTable


Do While Not ObjRS.EOF
       
Response.Write ObjRS(\"overskrift\")
Response.Write ObjRS(\"broedtekst\")
ObjRS.MoveNext
   
Loop
   
ObjRS.Close
ObjRS = Nothing
   
ObjConn.Close
ObjConn = Nothing   
%>

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0400)
En sætning var ventet
/asp/Egne Scripts/testen_udtrak.asp, line 4
Option Explicit

Hvis jeg fjerner denne linie <% Option Explicit %>

så kommer følgende fejl:

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01B6)
Objektet understøtter ikke denne egenskab eller metode: \'Open\'
/asp/Egne Scripts/testen_udtrak.asp, line 15

Er der nogen der kan svare mig på denne så vil jeg blive glad!!!!
Avatar billede jacobchr Nybegynder
08. maj 2001 - 00:27 #1
Skal det ikke være sådanne her ?

<%
Dim ObjConn, ConnectionString
Set ObjConn = Server.CreateObject (\"ADODB.Connection\")
ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\asp\\Egne Scripts\\landsnyheder.mdb;\"

ObjConn.Open ConnectionString

/jacob
Avatar billede voetmann Nybegynder
08. maj 2001 - 00:32 #2
Nu har jeg testet det igen!

Her er scriptet:


    <%@ Language=VBScript %>
    <!--#include virtual=\"/adovbs.inc\"-->
    <% Option Explicit %>
   

    <%
    Dim ObjConn
    Dim ConnectionString

    Set ObjConn = Server.CreateObject (\"ADODB.Connection\")
    ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\asp\\Egne Scripts\\landsnyheder.mdb;\"
    ObjConn.Open ConnectionString
   

    Dim ObjRS
    ObjRS = Server.CreateObject (\"ADODB.Recordset\")
    ObjRS.Open \"nyheder\", ObjConn, , , adCmdTable


    Do While Not ObjRS.EOF
       
    Response.Write ObjRS(\"overskrift\")
    Response.Write ObjRS(\"broedtekst\")
    ObjRS.MoveNext
   
    Loop
   
    ObjRS.Close
    ObjRS = Nothing
   
    ObjConn.Close
    ObjConn = Nothing   
   
    %>

Okay, men hvad med denne fejl ???


Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0400)
En sætning var ventet
/asp/Egne Scripts/testen_udtrak.asp, line 4
Option Explicit
Avatar billede voetmann Nybegynder
08. maj 2001 - 00:45 #3
Jacob, jeg fandt ud af at <% Option Explicit %> skal umiddelbart sættes ind efter <%@ Language=VBScript %>, men jeg har stadigvæk den dumme fejl med at Open understøttes ikke af Record object og kan kan jeg ikke forstå ???

<allan>
Avatar billede voetmann Nybegynder
08. maj 2001 - 00:47 #4
Upuups jeg mente Recordset object

<allan>
Avatar billede jacobchr Nybegynder
08. maj 2001 - 00:49 #5
Jeg kan ikke helt finde din SQL kode, skal den ikke være her ;

Dim ObjRS
ObjRS = Server.CreateObject (\"ADODB.Recordset\")
ObjRS.Open \"SELECT * FROM nyheder\", ObjConn, , , adCmdTable
Avatar billede voetmann Nybegynder
08. maj 2001 - 00:55 #6
Okay så langt så godt, men samme syge fejl!!


    <%@ Language=VBScript %>
    <% Option Explicit %>
    <!--#include virtual=\"/adovbs.inc\"-->

   

    <%
    Dim ObjConn
    Dim ConnectionString

    Set ObjConn = Server.CreateObject (\"ADODB.Connection\")
    ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\asp\\Egne Scripts\\landsnyheder.mdb;\"
    ObjConn.Open ConnectionString
   

    Dim ObjRS
    ObjRS = Server.CreateObject (\"ADODB.Recordset\")
    ObjRS.Open \"SELECT * FROM nyheder\", ObjConn, , , adCmdTable


    Do While Not ObjRS.EOF
       
    Response.Write ObjRS(\"overskrift\")
    Response.Write ObjRS(\"broedtekst\")
    ObjRS.MoveNext
   
    Loop
   
    ObjRS.Close
    ObjRS = Nothing
   
    ObjConn.Close
    ObjConn = Nothing   
   
    %>


Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01B6)
Objektet understøtter ikke denne egenskab eller metode: \'Open\'
/asp/Egne Scripts/testen_udtrak.asp, line 19

Avatar billede jacobchr Nybegynder
08. maj 2001 - 01:02 #7
Hvis det ikke virker med denne, så kan jeg ikke lige se hvad du kan gøre ;

Dim ObjRS
ObjRS = Server.CreateObject (\"ADODB.Recordset\")
ObjRS.Open \"SELECT * FROM nyheder\", ObjConn

/jacob
Avatar billede voetmann Nybegynder
08. maj 2001 - 01:05 #8
Stadig samme fejl!!!!!

men ellers tak for hjælpen

<allan>
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester