hjælp til database link rettelse

Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../../db/xxx.mdb")
rs.Open strSQL, strDSN, 1

måske sådan?

det er ændret nu:
Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../../db/xxx.mdb")
rs.Open strSQL, strDSN, 1'    myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:/Inetpub/wwwroot/andre/website/frogger/final/dberd/xxx.mdb"
    strSQL = "SELECT * FROM config where user = '" & Request.form("user") & "'"
    Set rs = myConn.Execute(strSQL)


Men den kommer med denne her fejl meddelse:
Microsoft VBScript runtime error '800a01a8'

Object required: 'myConn'

/admin/nyheder/index.asp, line 79


linje79=
    Set rs = myConn.Execute(strSQL)

<% if mode = "login" then
  Set myConn = Server.CreateObject("ADODB.Connection")
myConn  = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../../db/xxx.mdb")
rs.Open myConn, strDSN, 1

måske lidt mere tilpasset.. håber da det virker:)

hvis du vil bruge det første eksempel så skal du nok rette denne linje

Set rs = myConn.Execute(strSQL)

til

Set rs = strDSN.Execute(strSQL)

jeg har prøvet med det sidste eksempel, og der skriver den:

Microsoft VBScript compilation error '800a0400'

Expected statement

/admin/nyheder/index.asp, line 75

<% if mode = "login" then
^


linje 75=
<% if mode = "login" then

hvad med

Set myConn = Server.CreateObject("ADODB.RecordSet")
DSN= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../../db/xxx.mdb")
rs.Open strSQL, DSN, 1

Der skriver den:
Microsoft VBScript runtime error '800a01a8'

Object required: 'rs'

/admin/nyheder/index.asp, line 77



linje 77=
rs.Open strSQL, DSN, 1

Set myConn = Server.CreateObject("ADODB.RecordSet")
DSN= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../../db/xxx.mdb")
myConn.Open strSQL, DSN, 1

fejl:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'myConn.execute'

/admin/nyheder/index.asp, line 80


linje 80= If rs.BOF Or rs.EOF Then


kodestykket ser sådan her ud nu:

<% if mode = "login" then
Set myConn = Server.CreateObject("ADODB.RecordSet")
DSN= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../../db/.mdb")
myConn.Open strSQL, DSN, 1
    strSQL = "SELECT * FROM config where user = '" & Request.form("user") & "'"
    Set rs = myConn.Execute(strSQL)
        If rs.BOF Or rs.EOF Then

xxx.mdb selvfølgelig

if mode = "login" then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM config where user = '" & Request.form("user") & "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../../db/xxx.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then

vi skal nok få den;)

den før virkede ikke fordi

If rs.BOF Or rs.EOF Then

skulle være

If myConn.BOF Or myConn.EOF Then

den skriver:
Microsoft VBScript runtime error '800a01a8'

Object required: 'myConn'

/admin/nyheder/index.asp, line 79



linje79:If myConn.BOF Or myConn.EOF Then








og det ser sådan her ud nu:
<% if mode = "login" then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM config where user = '" & Request.form("user") & "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../../db/xxx.mdb")
rs.Open strSQL, strDSN, 1
If myConn.BOF Or myConn.EOF Then

<% if mode = "login" then
Set myConn = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM config where user = '" & Request.form("user") & "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../../db/xxx.mdb")
rs.Open strSQL, strDSN, 1
If myConn.BOF Or myConn.EOF Then

Microsoft VBScript runtime error '800a01a8'

Object required: 'rs'

/admin/nyheder/index.asp, line 78

linje 78=rs.Open strSQL, strDSN, 1

myConn.Open strSQL, strDSN, 1

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rs'

/admin/nyheder/index.asp, line 83






linje 83:
            if rs("password") = Request.form("password") then

if myConn("password") = Request.form("password") then

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rs'

/admin/nyheder/index.asp, line 84







linje84:             session("user") = rs("user")

session("user") = myConn("user")

alle dine rs skal rettes til myConn

virker det? (så jeg kan gå i seng;))

yes... nu går den i det mindste vidre:

men for denne her fejl på den anden side:

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'Conn'

/admin/nyheder/oversigt.asp, line 8


koden ser sådan her ud:
<%
    dim Connection,SQLstringK,KRS

Set Conn = Server.CreateObject("ADODB.Connection")
strconnect = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../../../db/xxx.mdb")
    SQLstringK="SELECT * FROM news ORDER BY id DESC"
    SET KRS=Connection.Execute(SQLstringK)



%>



linje8=
Set Conn = Server.CreateObject("ADODB.Connection")

Set Connection = Server.CreateObject("ADODB.Connection")

det er noget være lort det her. ;)

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'strconnect'

/admin/nyheder/oversigt.asp, line 9


linje9:
strconnect = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../../../db/xxx.mdb")

Connection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../../../db/xxx.mdb")

det ligner også du har lavet en masse copy and paste hehe

Microsoft VBScript runtime error '800a01a8'

Object required: 'DRIVER={Microsoft Ac'

/admin/nyheder/oversigt.asp, line 11


linje11:
    SET KRS=Connection.Execute(SQLstringK)

SET Connection=Connection.Execute(SQLstringK)

er lidt usikker med den.. prøv

den for samme fejl.

dim Connection,SQLstringK,KRS

    Set Connection = Server.CreateObject("ADODB.Connection")
    Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../../../db/xxx.mdb")
    SQLstringK="SELECT * FROM news ORDER BY id DESC"
    SET KRS=Connection.Execute(SQLstringK)

den kode der burde virke... gør den hos mig.

eller hvad?

yes den virkede perfekt..
Jeg går iseng nu,, så opret et svar og du for lige points.

men har du tid imorgen eller noget? for har et par sidste spørgsmål, til nogle andre sti´er.

Godt!! så går jeg også i seng:))

kalp.. er det muligt du har tid endag til at hjælpe mig igennem med de sidste par rettelser?
Evt. via msn eller icq.?

hvilke rettelser er det? som du kan se ud fra alle indlæg herinde så er jeg ikke skarb til det *G*

tjaa vi er da kommet igennem et par sider. :)

hvilke rettelser var det? kan jo være vi er heldige:)