Hjælp til gæstebog på Azero webhotel

hvad med at rette DBPATH:

DBPATH = \"d:\\home\\xxxbrugernavnxxx\\db\\guestbook.mdb\" \' Location of guestbook.mdb

Hvis databasen ligger i /db/test/ ville jeg gætte at DBConn.Open skal retter til:

  DBConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & DBPATH

Nu ligger databasen altså i en test mappe i db mappen!

Ok, prøver lige det

Jeg har selv azero og jeg har set de abefaler at benytte denne connection streng til access databaser:
strConnect = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\home\\FtpBrugernavn\\db\\database.mdb;\"

med din gæstebog:
strConnect = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\home\\FtpBrugernavn\\db\\test\\guestbook.mdb;\"

DBConn.Open bliver så til:
DBConn.Open strConnect

Ingen af de 2 ting virkede!
Problemet er at jeg ikke selv har lavet siden, og jeg er lidt grøn hvad programering angår!

bruger du samme DBConn til at skrive og løse fra databasen?

Det ved jeg ikke...hvor ser jeg dette??
Jeg kan godt smide hele kode hvis det hjælper!

Du har DBRs og DBRs2, der hvor de bliver brugt er det sammen med DBConn.Execute ??
Ja det kunne måske hjælpe lidt hvis du kunne ligge noget af kode her.

Her ligger hele koden, fra et tidligere spørgsmål
http://www.eksperten.dk/spm/108833

OK. Så vidt jeg kan se includer du filen <!--#include file=\"includes/data.inc\"-->

Ligger DBPATH i data.inc filen?

I koden i spm-108833 ligger der en DBPATH:
DBPATH = server.mappath(\"data/test_guestbook.mdb\")

den skal ændres til det du skriver i spørgsmålet, hvis det da ikke er det du har gjort:
DBPATH = \"d:\\home\\xxxbrugernavnxxx\\db\\test\\guestbook.mdb\" \' Location of guestbook.mdb

Nå ja! sorry det var de gamle koder!
Jeg har rette dem til: DBPATH = \"d:\\home\\xxxbrugernavnxxx\\db\\test\\guestbook.mdb\" \' Location of guestbook.mdb

Men hvis jeg sender filerne til dig, gider du så ikke kigge dem igennem??

ja det kan jeg godt prøve.

aoe@earthling.net

Nu ser det ud til at det virker med:DBPATH = \"d:\\home\\xxxbrugernavnxxx\\db\\test\\guestbook.mdb\" \' Location of guestbook.mdb

Men nu virker min film database ikke!

Siden skriver dette:
CreateDataobject: Operation was canceled.
FILE:film.mdb


Hvad er nu det?
www.dirch-passer.dk

bruger du samme include fil?

det kan være denne DBConn.open skal være som du først dkrev:

DBConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & database

fordi din Gæstebog benytter ikke
DBConn til at få adgang til databasen.

Gæstebogen bruger DBPATH som referance til databasen.

Ja! jeg bruger samme fil!

Her er den linie der nok skal rettes men til hvad?createdataobject server.mappath(\"data/film.mdb\")

Jeg ville tro den skulle være i stil med:

createdataobject \"d:\\home\\xxxbrugernavnxxx\\db\\data\\film.mdb\"

Jeg er desvære nød til at smutte nu. Jeg er tilbage igen en gang i aften.

Jeg håber du kommer lidt videre.

Hvis du har lavet ændringer i data.inc filen må du hellere rette dem tilabge igen jeg tænker på dette:
>>BEGIN:>>
Dim DBConn,DBRs,DBConn2,DBRs2
function CreateDataObject(database)
    on error resume next
    Set DBConn = Server.CreateObject(\"ADODB.Connection\")
    DBConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & database
    Set DBRs = Server.CreateObject(\"ADODB.RecordSet\")
    Set DBRs2 = Server.CreateObject(\"ADODB.RecordSet\")

    if err <> 0 then
        response.write \"CreateDataobject: \" & err.description & \"<b><br>FILE:\" & gf(database) & \"</b>\"
        response.end
        err=0
    end if
End Function

Det hele virkede da jeg lavede det om til \"database\"

Jeg skal lige høre.....gider du hjælpe mig med at få smidt min film database over i mappen db, og så den også virker??
Så for du samlet 400 point!

Så er jeg tilbage. Ja jeg vil gerne hjælpe dig.

Hvor ligge databasen da nu. Ligger film databasen da ikke i db mappen?

Nej den ligger i den mappe som guestbook.mdb lå i!

ok

Så skal du finde hvad \"database\" indeholder. Det må næsten være i data.inc og se omkring sådan ud:

database = ........film.mdb

Her er data.inc filen:

>>BEGIN:>>
Dim DBConn,DBRs,DBConn2,DBRs2
function CreateDataObject(database)
    on error resume next
    Set DBConn = Server.CreateObject(\"ADODB.Connection\")
    DBConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Database
    Set DBRs = Server.CreateObject(\"ADODB.RecordSet\")
    Set DBRs2 = Server.CreateObject(\"ADODB.RecordSet\")

    if err <> 0 then
        response.write \"CreateDataobject: \" & err.description & \"<b><br>FILE:\" & gf(database) & \"</b>\"
        response.end
        err=0
    end if
End Function

Function OpenTable(strSql)
    on error resume next
    DBRs.Open strSQL, DBConn, 1, 3
    if err <> 0 then
        response.write \"OpenTable: \" & err.description & \"<b><br>SQL:\" & strSql & \"</b>\"
        response.end
        err=0
    end if
End Function

Function CloseTable()
    on error resume next
    DBRs.Close
    if err <> 0 then
        response.write err.description
        response.end
        err=0
    end if
End Function

Function CloseDataObject()
    on error resume next
    DBConn.close
    set DBconn = nothing
    set DBRs = nothing
    set DBRs2 = nothing
    if err <> 0 then
        response.write err.description
        response.end
        err=0
    end if
End Function
Function OpenTable2(strSql)
    on error resume next
    DBRs2.Open strSQL, DBConn, 1, 3
    if err <> 0 then
        response.write err.description & \"<b><br>SQL:\" & strSql & \"</b>\"
        response.end
        err=0
    end if
End Function

Function CloseTable2()
    on error resume next
    DBRs2.Close
    if err <> 0 then
        response.write err.description
        response.end
        err=0
    end if
End Function

Function GF(FilePath)
    Dim i
    On Error Resume Next
    For i = Len(FilePath) To 1 Step -1
        If Mid(FilePath, i, 1) = \"\\\" or Mid(FilePath, i, 1) = \"/\" Then
            Exit For
        End If
    Next
    GF = Trim(Mid(FilePath, i + 1))
End Function
%>

Du skal lave en DBPATH constant som med gæstebogen den skal bare henvise til film.mdb:
DBPATH = \"d:\\home\\xxxbrugernavnxxx\\db\\film.mdb\"

Der hvor du så connecter film databasen:
createdataobject server.mappath(\"data/film.mdb\")

Skal ændres til:
createdataobject DBPATH

Jeg smider lige film siden.....kan du så ikke vise mig hvor det er jeg skal det du skrev:<%
   
    if sort = \"1\" then
        sort = \"Titel\"
    else
        sort = \"Year\"
    end if
    \' Make list of all movies
    createdataobject \"d:\\home\\dirchpasserdk\\db\\data\\film.mdb\"
        opentable \"select * from Film order by \" & Sort
            do while not (dbrs.eof or dbrs.bof)
                \'if bg = \"bgcolor=\"\"#999999\"\"\" then
                \'    bg = \"\"
                \'else
                \'    bg = \"bgcolor=\"\"#999999\"\"\"
                \'end if
                %>
                <tr>
                <%
                if len(dbrs(\"Tekst\")) > 0 then
                    link1 = \"<a href=\"\"showmovie.asp?id=\" & dbrs(\"ID\") & \"\"\" target=\"\"hovedramme\"\">\"
                    link2 = \"</a>\"
                else
                    link1 = \"\"
                    link2 = \"\"
                end if
                %>
                <td valign=\"top\">
                    <%=link1%><%=dbrs(\"Year\")%>-<%=link2%>
                </td>
                <td <%=bg%> valign=\"top\">
                    <%=link1%><%=dbrs(\"Titel\")%><%=link2%>
                </td>
                </tr>
                <%
                dbrs.movenext
            loop
        closetable
    closedataobject
%>

DBPATH ligges i starte af filen (lige som med den gæstebogs-filen)

DBPATH = \"d:\\home\\dirchpasserdk\\db\\film.mdb\"

    if sort = \"1\" then
        sort = \"Titel\"
    else
        sort = \"Year\"
    end if
    \' Make list of all movies
    createdataobject DBPATH
        opentable \"select * from Film order by \" & Sort
            do while not (dbrs.eof or dbrs.bof)
                \'if bg = \"bgcolor=\"\"#999999\"\"\" then
                \'    bg = \"\"
                \'else
                \'    bg = \"bgcolor=\"\"#999999\"\"\"
                \'end if
                %>
                <tr>
                <%
                if len(dbrs(\"Tekst\")) > 0 then
                    link1 = \"<a href=\"\"showmovie.asp?id=\" & dbrs(\"ID\") & \"\"\" target=\"\"hovedramme\"\">\"
                    link2 = \"</a>\"
                else
                    link1 = \"\"
                    link2 = \"\"
                end if
                %>
                <td valign=\"top\">
                    <%=link1%><%=dbrs(\"Year\")%>-<%=link2%>
                </td>
                <td <%=bg%> valign=\"top\">
                    <%=link1%><%=dbrs(\"Titel\")%><%=link2%>
                </td>
                </tr>
                <%
                dbrs.movenext
            loop
        closetable
    closedataobject
%>


-------------
ELLER du kan bare ændre denne ene linie:
createdataobject \"d:\\home\\dirchpasserdk\\db\\data\\film.mdb\"

TIL:
createdataobject \"d:\\home\\dirchpasserdk\\db\\film.mdb\"

det eneste der er fjerne et \\data

Jamen! Det køre jo bare.....du har ærligtalt fortjent dine point :)

Nu mangler jeg bare at omdøbe mine forum filer, samt at få ført forum databasen over i db mappen lige som de andre.

Er du interesseret i at tjene de point....senere??

er det i orden at at jeg påføre de sidste 100 point til den nye sti med forum.....hvis du altså gider og tjene de point også??

Jeg skriver til din mail når jeg opretter spørgsmålet....det bliver nok i morgen!

Det er helt fint med mig, jeg sige mange tak for de points jeg fået.

Jeg meget gerne hjælpe igen, jeg holde øje med min indbakke.

Hvis forumet er lavet på samme måde som film og gæstebogs siderne så er det til at gå til.
Find det sted hvor \"createdataobject\" bliver kaldt og lav stien om til at peje i db mappen, så det bliver som den her:
createdataobject \"d:\\home\\dirchpasserdk\\db\\film.mdb\"
Du skal bare skifte film.mdb ud med navnet på forum database filnavnet.

Jeg sidder lige og kikker på din spænde side. Der er fejl i showmovie.asp den kan ikke finde film.mdb.

Så i showmovie.asp skal du også ændre:
createdataobject \"d:\\home\\dirchpasserdk\\db\\data\\film.mdb\"

TIL:
createdataobject \"d:\\home\\dirchpasserdk\\db\\film.mdb\"

Ok! takker for oplysningen.....så er showmovie rettet!

Forumet er nok ikke lavet på samme måde da det er en anden person der har lavet det.

jeg sender dig forumet, i morgen gider du så se om man sådan lige kan ændre default.asp til forum.asp??

Når jeg vil slutte for i aften.....jeg tror der er en god film der kalder :)

JA du kan bare sende det til mig. Så vil jeg prøve at kikke det en gang imorgen.