oversættelse

Det du har brugfor er noget i stil "Paging med mySQL og Limit"

http://activedeveloper.dk/aspdigital/2001112301.asp

er det ligesom den på activedeveloper som er med access?

Både ja og nej, jo linket er til activedeveloper men det er til MySql

Fidusen er at mySQL har en smart funktion indbygget, nemlig Limit
jeg bruger den selv på en af mine sider, og det virker rigtig godt.

det er ikke så godt som den udgave jeg har, den skriver kun side tallene, kan du ikke lave min kode om til mysql?

Det er ikke det samme, men du skal selvf. lige huske at vise de felter du har i din tabel, send mige lige nogle pålysninger
1. hvad heder din tabel
2. hvilke felter har du

I det kode du har vedlagt til dit spørgsmål, står der

'Det som kommer ud af databasen


Her vil jeg forvente at du selv skal udfylde noget.

Nå men send mig ovenstående oplysninger, og jeg skal se hvad jeg kan gøre

tabel = mail

mail:
id - primær nøgle
email - tekst

jeg kigger efter jeg har spist

Ok her er den så:


filen skal hede: paging.asp

øverst i koden står der:
    SQLserveradr="din_ip-adresse/evt_localhost"
    SQLdatabase="Din_database"   
    SQLlogin="din_login"
    SQLpassword="dit_password"

dette skal du lige rette så det passer til dig.

Koden er:


<%
'Opretter Connection

    SQLserveradr="din_ip-adresse/evt_localhost"
    SQLdatabase="Din_database"   
    SQLlogin="din_login"
    SQLpassword="dit_password"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase &";uid="& SQLlogin &";pwd="& SQLpassword



'Først skal vi have antallet af poster
Set objRs = Conn.Execute("SELECT COUNT(*) AS records FROM mail;")
intRecords = int(objRs("records"))
objRs.Close
Set objRs = Nothing

'Variabler til query´et
intPage = Request.QueryString("page")
if intPage = "" OR not isNumeric(intPage) then
    intPage = int(1)
else
    intPage = int(intPage)
end if
intPageSize = int(5)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intPages = int(intRecords/intPageSize)+1

Set objRs = Conn.Execute("SELECT * FROM mail LIMIT " & intStart & ", " & intPageSize & ";")
   
    if objRs.EOF or objRs.BOF then
        Response.Write "Ingen poster"
    else
        Response.Write "<table border=""1"" cellpadding=""3"">"
            Response.Write "<tr>"
                Response.Write "<td><b>id</b></td>"
                Response.Write "<td><b>Mail</b></td>"
            Response.Write "</tr>"
               
            Do until objRs.EOF
                Response.Write "<tr>"
                    Response.Write "<td>" & objRs("id") & "</td>"
                    Response.Write "<td><a href=""" & objRs("email ") & """>" & objRs("email ") & "</a></td>"
                Response.Write "</tr>"
            objRs.MoveNext
            Loop
        Response.Write "</table>"
    end if

objRs.Close
Set objRs = Nothing

'Udskriver en "sideliste"
For i = 1 to intPages
    if i = intPage then
        Response.Write "<b>" & i & "</b> "
    else
        Response.Write "<a href=""paging.asp?page=" & i & """>"
        Response.Write i
        Response.Write "</a> "
    end if
next

Conn.Close
Set Conn = Nothing
%>

jeg prøver men nu skal jeg i kirke

Søndag aften ?

nu er jeg her igen jeg prøver nu

ja det er aftens gudtjeneste

jeg skal konfimeres, jo

jeg får denne fejl

ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.

/view.asp, line 90

den kode er jo den på activede.... jeg vil have min kode omskrevet

ja man den er jo omskrevet til MySql !!

Der er kun  65 linier i den kode jeg har givet dig, og i den fejl du får er der åbenbart mindst 90 linier, hvis du ønsker at teste min kode skal du kalde filen for "paging.asp"

i den mysql kode står der kun siderne og ikke alt det mit scripts kan

de 90 linier er fordi det er i et af mine dokumenter

Prøv nu lige at bruge min kode og kand siden paging.asp, så kommer der både ID og mail felterne med ud, når du så har det til at virke kan du jo latid tilpasse det til dit behov

i den kode du har lagt her kommer der da ikke andet en siderne, jeg fatter ikke helt din begrundelse for ikke at afprøve det du modtager

jo der står også
<< >> ( næste side )
og så står der side /antal/ af /antal

jeg lukker

Det er bare ikke godt nok !!!
I den kode du har postet er der ikke vist data fra din tabel !
Hvis den gør det kunne du så ikke lige vise mig hvor ?
Hvis det du ønsker at << og  >> så er det da bare at indsætte disse linier i den kode jeg har vedlagt, det har jo intet med mysql at gøre.


jeg har krav på de 60 point da jeg 100% har løst din opgave, opgaven var "Jeg har et access script som jeg skal have lavet om til mysql"

Den kode jeg har postet her er testet og er ok, og så har du da bare at smide de point til mig.

Jeg forventer at høre fra dig, da du ellers må forvente at blive anmelt til admin, dette er ikke en måde at opføre sig på, da:
1. du tester ikke den kode du får leveret.
2. du opretter samme spørgsmål 2 gange.
3. du "betaler" ikke for den vare du får leveret.

mvh sth

Hvis det er et spørgsmål om at du ønsker at få >> << vist også, så er koden her.

<%


    SQLserveradr="din_ip-adresse/evt_localhost"
    SQLdatabase="Din_database"   
    SQLlogin="din_login"
    SQLpassword="dit_password"



Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase &";uid="& SQLlogin &";pwd="& SQLpassword



'Først skal vi have antallet af poster
Set objRs = Conn.Execute("SELECT COUNT(*) AS records FROM mail;")
intRecords = int(objRs("records"))
objRs.Close
Set objRs = Nothing

'Variabler til query´et
intPage = Request.QueryString("page")
if intPage = "" OR not isNumeric(intPage) then
    intPage = int(1)
else
    intPage = int(intPage)
end if
intPageSize = int(3)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intPages = int(intRecords/intPageSize)+1

Set objRs = Conn.Execute("SELECT * FROM mail LIMIT " & intStart & ", " & intPageSize & ";")
   
    if objRs.EOF or objRs.BOF then
        Response.Write "Ingen poster"
    else
        Response.Write "<table border=""1"" cellpadding=""3"">"
            Response.Write "<tr>"
                Response.Write "<td><b>id</b></td>"
                Response.Write "<td><b>Mail</b></td>"
            Response.Write "</tr>"
               
            Do until objRs.EOF
                Response.Write "<tr>"
                    Response.Write "<td>" & objRs("id") & "</td>"
                    Response.Write "<td>" & objRs("email") & "</a></td>"
                Response.Write "</tr>"
            objRs.MoveNext
            Loop
        Response.Write "</table>"
    end if

objRs.Close
Set objRs = Nothing

        If intPage <> 1 Then 
        Response.Write "<a href=paging.asp?page=" & intPage -1 & ">&lt;&lt;&nbsp;</a>"

        Else
            Response.Write "&lt;&lt;&nbsp;"
        End If
           
For i = 1 to intPages

   
    if i = intPage then
   
        Response.Write "<b>" & i & "</b> "
    else
        Response.Write "<a href=""paging.asp?page=" & i & """>"
        Response.Write i
        Response.Write "</a> "
    end if
next

            If Clng(intPage) < Clng(intPages) Then
            Response.Write "<a href=paging.asp?page=" & intPage +1 & ">&nbsp;&gt;&gt;</a> "
            Else
            Response.Write "&nbsp;&gt;&gt;"
            End If

Conn.Close
Set Conn = Nothing
%>

sth, giv mig lige din e-mail for så kan jeg lige forklare/spørge dig om noget

sth@halstat.dk

Men bare lige så du ved det så mener jeg at du skylder mig 60 point :)

Hvaaaaa er du der, eller har du bare tænkt dig at tage de point selv ?