Database Problem ?

hvad er linie 19?

noget med databasen...

Set RS = Server.CreateObject("ADODB.RecordSet") <--- helt præcis

hvad er linie 19? cut'n'paste

...hvad er hele koden?

Set RS = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM nyhed ORDER BY id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("nyhed.mdb") <--- lige det område det er galt i

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("nyhed.mdb
Conn.Open DSN

strSQL = "Select * From nyhed ORDER BY id DESC"
Set rs = Conn.Execute(strSQL)

...prøv det...

hov:

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("nyhed.mdb")
Conn.Open DSN

strSQL = "Select * From nyhed ORDER BY id DESC"
Set rs = Conn.Execute(strSQL)


...prøv det

prøver lige

nobe virkede ikke men det sker ved alle scripts dette der med den nærmest ikke kan finde databasen det er lige meget hvilket script jeg bruger

er du sikker på at stien til din database passer? altså at databasen (nyhed.mdb) ligger i samme mappe som din asp fil?

yep 100%

hvad er hele din kode så... og er du sikker på at der ikke er kodeord tilknyttet til din database?

<%
Session.LCID = 1030

response.write "<table cellpadding='2' cellspacing='0' border='0' width='486' height='18'><tr><td height='18' width='468' bgcolor='#C6C6FF' style='border: 1 solid #000000'><h3>Nyheder</h3></td></tr></table>"
response.write "<table cellpadding='5' cellspacing='0' width='486' style='border-left: 1 solid #000000; border-right: 1 solid #000000;'><tr><td><table cellpadding='0' cellspacing='0' width='100%'>"

'paging
intPage = Request.QueryString("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If


Set RS = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM nyhed ORDER BY id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("nyhed.mdb")

'Her fyldes der data i Recordset
rs.Open strSQL, strDSN, 1

'Der undersøges om der blev fundet nogen Records i databasen
If Not (RS.BOF Or RS.EOF) Then

    rs.PageSize = 5        'Hvor mange Records der skal vises på hver side
    rs.AbsolutePage = intPage    'Hvilken side vi skal starte på
    intRecCount = rs.PageSize    'Antallet af records på side
    intPageCount = rs.PageCount    'Antallet af sider

    'Udskriver de Records der er på siden
    Do While Not rs.EOF And intRecCount > 0

response.write "<tr><td><a href='nyhed.asp?id=" & rs("id") & "' target='_self'><h2><b>" & rs("overskrift") & "</b></h2></a></td><td align='right' width='20%'><h2><b>" & rs("datoen") & "</b></h2></td></tr>"
response.write "<tr><td><h2>"

inputStr = rs("nyheden")
MAX_WORD_COUNT = 20
wordCount = 0
newArr = split(inputStr," ")
outputStr = ""
do while (wordCount < UBOUND(newArr)) AND (wordCount < MAX_WORD_COUNT)
  outputStr = outputStr & newArr(wordCount) & " "
  wordCount = wordCount + 1
loop

Response.Write outputStr
Response.write "</h2><br></td></tr>"


            intRecCount = intRecCount - 1
            rs.MoveNext
loop
'Her nedlægger vi vores Recordset
rs.Close
Set rs = Nothing
Response.Write "</table></td></tr></table>"
response.write "<table width='486' bgcolor='#C6C6FF' style='border-top: 1 solid #000000; border-bottom: 1 solid #000000;' cellpadding='0' cellspacing='0'><tr><td width='20%' height='18' style='border-left: 1 solid #000000;'><h2> Side " & intPage & " af " & intPageCount & "</h2></td><td align='left' width='10%'><h2>"
'Sådan her hvis de vil gå en side tilbage
Response.Write ""
If Clng(intPage) > 1 Then
    Response.Write "<a href=guest.asp?page=" & intPage - 1 & " class='menu'>&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

'Og sådan her hvis de vil gå en side frem
Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=guest.asp?page=" & intPage + 1 & " class='menu'>&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
response.write "</h2></td>"
response.write "<td style='border-right: 1 solid #000000;' width='70%' align='right'><h2><a href='index.asp' class='menu'>» Start</a>&nbsp;&nbsp;&nbsp;</h2></td></tr>"
response.write "</table></center>"
End if
%>

hvad så med dette:

Set RS = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM nyhed ORDER BY id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/nyhed.mdb")

okay... nu gør jeg moget helt andet hvordan fjerner jeg ALT fra min Puter som har noget med Webserver at gøre ??

og du er sikker på at du har en tabel der hedder "nyhed" og at der er en kolonne det hedder "id"??

Nobe... det virkede heller ikke og jeg er næsten HELLLLLLT sikker på at det er min Webserver !

nu prøver jeg lige og uploade den til et webhotel så kan vi se om det er det 2 sec...

hvilket OS bruger du?

Du mangler at få installeret et eller andet til IIS på din egen maskine hvis den fejler i sådan en linier: Set RS = Server.CreateObject("ADODB.RecordSet")

<< eagleeye , det mener jeg nemlig også, det er også en underlig fejl han får, tror han mangler noget til at kunne læse fra en access database1.

Da men det er så lige hvad det er, normalt syntes jeg den fejler i en Provider/Driver så man skal installer MDAC fra MS.

...også derfor jeg spørger hvilket OS han bruger

Jeg prøver lige igen..hmm det var ikke godt skrevet.

Normalt syntes jeg den fejler i en Provider/Driver så man skal installer MDAC fra MS.

Win2k bruger jeg

Arh ja godt spørgsmål.

hvad for noget skal jeg ha installeret ?

????????????

win2k prof.?

Har du installer IIS fra W2K CD'en eller downloaded den fra MS?

Måske der er nødvendg at installer denne:
http://www.microsoft.com/msdownload/uda/mdac21/mdac_typ21.asp

installeret fra Win2k CD

så prøv at afinstallere, og installere igen...

yep prøver lige...

viker det når du kører det på egen com, altså:

http://computernavn/index.asp

Eagleeye den siger den Patch som du har givet mig linket til ikke passer til mit OS

nej ikke computer navn der skal være localhost

HALLO! :)

Det virkede ikke at geninstaller IIS?
Denne MDAC skulle gerne virke med W2K:
http://www.microsoft.com/data/download_260rtm.htm

JAAAAAAAAAAAAAAAAAAAAA! DET VIRKER NU! LÆG LIGE ET SVAR OSSE EAGLEEEYE :)

Ok..