Hjælp til omskriving af db connection

DSN = DSN & "DBQ="&server.mappath("/dberd/djbulldog_newser.mdb")
burde vel gøre det ?

Du mener sådan her.?
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ="&server.mappath("../../../dberd/djbulldog_newser.mdb")
Conn.Open DSN

strSQL = "Select * from news"

set rscount = conn.execute("select count(id) as antal from news")
antal = rscount("antal")
set rscount = nothing
%>


Der for jeg fejl i linjen.

nej jeg mener som jeg skrev ;o)
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ="&server.mappath("/dberd/djbulldog_newser.mdb")
Conn.Open DSN

strSQL = "Select * from news"

set rscount = conn.execute("select count(id) as antal from news")
antal = rscount("antal")
set rscount = nothing
%>

du kan se nogle eksempler her på hvordan server.mappath reagerer
http://www.w3schools.com/asp/met_mappath.asp

Okey sådan...

Længere nede på siden har jeg denne her.
                  <%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:/Inetpub/wwwroot/andre/website/dberd/djbulldog_newser.mdb" & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From news"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>

Hvad så med den.?

det er det samme, tag et kig på linket :o)
Ideen med server.mappath er jo netop at den "mapper" stien for dig :o)
---
nede på siden har jeg denne her.
                  <%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("/dberd/djbulldog_newser.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From news"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>

Okey nu er jeg med...

Så er server mappath da fandme smart... :)

ja netop, pointen er jo at man netop slipper for at lave virtuelle stier
som du kan se i linket, så afhængig af om du udelader den første / så vil du få en sti fra roden af domænet eller en sti fra den aktuelle side

Tak for point :o)

Hmm jeg var vist ikke helt færdig, for efter jeg har rettet db stien til, så for jeg denne her fejl når jeg klikker på ret nyhed i mit nyheds sys:

toppen ser sådan her ud:
<script language="VBScript" runat="Server">
Function unQuote(strTekst)
    strTekst = Trim(strTekst)
    unQuote = Replace(strTekst,"'","''")
End Function
</script>

<%Dim ID,opslag

id=Request.QueryString("ID")

Set Connection = Server.CreateObject("ADODB.Connection")
strconnect = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/dberd/djbulldog_newser.mdb")

if request.querystring("knap")<>"Gem ændringer" then

    SQLstringK="SELECT * FROM news WHERE id="&id
    SET opslag=Connection.Execute(SQLstringK)
else
   
    SQLstringK="UPDATE news SET title='"&Request.QueryString("name")&"', news='"&Request.QueryString("kommetare")&"' WHERE id="&id
    Connection.Execute(SQLstringK)
    response.buffer=true
    response.clear
    response.redirect "oversigt.asp"
    response.end

end if
    %>

samt for denne her fejl:
ADODB.Connection error '800a0e78'

Operation is not allowed when the object is closed.

/admin/nyheder/ret.asp, line 18


linje.18:
    SET opslag=Connection.Execute(SQLstringK)



Skal jeg evt. oprette et nyt spam til dette.?

du skal ikke oprette spam nej ;o)
Det er en helt anden fejl som skyldes du ikke har åbnet din forbindelse
Du skal først have en
Connection.Open strconnect

Tak for hintet busschou, og endelig fandt jeg løsningen.
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("/dberd/djbulldog_newser.mdb")

den linje hjalp.. :)

hehe