Avatar billede dramsgaard Nybegynder
24. oktober 2003 - 16:55 Der er 7 kommentarer og
1 løsning

paging og db forbindelse

jeg har fundet flg. paging script på activedeveloper.dk, og det virker os fint, men jeg kunne godt tænke mig at tage db forbindelsen ud af pagingscriptet, også bruge mit eget som ligger i en includefil, som jeg benytter på resten af webstedet.
men jeg kan ik helt få det til at virke når jeg forsøger at bytte det ud.
Nogen der kan fixe det for mig??

min db include (config.inc):
---------------------------
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("../db\maindb.mdb")
---------------------------

PAGING:
---------------------------

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db\maindb.mdb")
strSQL = "SELECT dato, overskrift, ID FROM nyheder order by dato desc"

rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0
        Response.Write "<a href='nyheder_rediger2.asp?id=" & rs("id") & "'>" & rs("dato")  & " - " & rs("overskrift") & "</a><br />"
       
       
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=nyheder_rediger.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=nyheder_rediger.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=nyheder_rediger.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
Avatar billede thesurfer Nybegynder
24. oktober 2003 - 17:12 #1
jeg tror ikke at det er der fejlen ligger, men du skriver:
Server.Mappath("../db\maindb.mdb")

burde det ikke have været / begge steder?

først tilføjer du Option Explicit i toppen af din asp kode.. før alt andet..
hvad får du af fellmeldinger? skriv dem her..
Avatar billede dramsgaard Nybegynder
24. oktober 2003 - 18:12 #2
jeg har flg som bliver includeret på alle mine sider

Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("../db\maindb.mdb")

Det der er mit problem er at jeg skal have skiftet flg. ud fra paging, så det benytter det der i forvejen bliver inkluderet på alle mine sider:

Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db\maindb.mdb")
strSQL = "SELECT dato, overskrift, ID FROM nyheder order by dato desc"

rs.Open strSQL, strDSN, 1
Avatar billede dramsgaard Nybegynder
24. oktober 2003 - 18:19 #3
men da de to db forbindelser er skrevet forskelligt kan jeg ikke umiddelbart overskue hvordan jeg skal lave paging koden om for at kunne bruge min anden db forbindelse...det er det jeg skal have hjælp til
Avatar billede eagleeye Praktikant
25. oktober 2003 - 00:55 #4
Du includer din config.inc fil med connectionen. Husk include skal være før den linje med rs.Open.

Ret disse linjer på paging siden:

Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db\maindb.mdb")
strSQL = "SELECT dato, overskrift, ID FROM nyheder order by dato desc"

rs.Open strSQL, strDSN, 1


Til dette:

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT dato, overskrift, ID FROM nyheder order by dato desc"

rs.Open strSQL, MyConn, 1



En anden ting brug aldrig include filer som ikke hedder .asp da man let kan skriver den fulde sti til include filen i sin browser og når det ikke er en fil serveren kan afvikle direkte så vises indholdet af filen eks:
http://www.dinside.dk/config.inc
Avatar billede dramsgaard Nybegynder
25. oktober 2003 - 01:23 #5
ja det ved jeg godt man kan, men det kan der vel heller ikke ske det store ved, eller kan der??
Min database ligger uden for wwwroot alligevel, så den kan vel ikke downloades.
Avatar billede dramsgaard Nybegynder
25. oktober 2003 - 01:32 #6
kan det i øvrigt ikke være ligemeget hvor min include ligger i filen, bare den ligger før der hvor den skal bruges?
Avatar billede eagleeye Praktikant
25. oktober 2003 - 11:58 #7
Jo det betyder ikke noget hvor man includer, bare som du skriver før man skal bruge den ;)
Avatar billede dramsgaard Nybegynder
26. oktober 2003 - 23:39 #8
eagle, hvad betyder egentlig >> ,1

som bla er efter:
rs.Open strSQL, MyConn, 1
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