min paging nu när jag migrerar från access till mysql ser ut så här


Set objRs = Server.Createobject("Adodb.Recordset")
strSQL = "SELECT mailRead, username, mailDate, mailTime, sender, Headline, message, mailID,Reciever "&_
"FROM tblUsers INNER JOIN tblUsers_imail ON tblUsers.userID = tblUsers_imail.sender "&_
"WHERE Reciever=" & Session("userID") &" order by mailID desc"
strConString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=databasadress;PORT=3306;DATABASE=användarnamn
;USER=användarnamn;PASSWORD=lösenord;OPTION=3;"



'===========================================================
=====================================
function getPreviousLink( intp )
if intp > 1 then
getPreviousLink = " <a class=""menu"" href='?p=" & intp - 1 & "'> « Föregående</a> "
else
If intp < 2 then
response.write " "
end if
end if
end function
'===========================================================
=====================================

'===========================================================
=====================================
function getNextLink( intPageId, intPageCount )
if cint( intpageId ) <> cint( intPageCount ) then
getNextLink = " <a class=""menu"" href='?p=" & intp + 1 & "'> Nästa »</a> "
else
getNextLink = " Nästa »"
end if
end function
'===========================================================
=====================================

'===========================================================
=====================================
function getLastLink( intPageCount )
getLastLink = " <a class=""menu"" href='?p=" & intPageCount & "'>Sista sidan</a> "
end function
'===========================================================
=====================================

'===========================================================
=====================================
function getPageInfo( intp, intPageCount )
getPageInfo = "<a class=""menu""> Sida: " & intp & " </a>"
end function
'===========================================================
=====================================


intp = request.querystring( "p" )
if intp = "" then intp = 1

with objRs
.cursorlocation = 3
.open strSQL, strConString
.pagesize = 20
end with

If objRs.EOF Then
Response.Write "Din inbox är tom<p>"
Else
intPages = cint(objRs.pagecount)
intCurrentPost = 0
objRs.absolutepage = intp


Do while not objRs.eof and intCurrentPost < objRs.pagesize
nummer = nummer + 1
If nummer Mod 2 = 0 Then
color = "#FFFFFF"
Else
color = "#EEEEEE"
end if

--------------------------------------------------------------------------------


först och främst så får jag felmeddelande när jag har order by mailID och tar jag bort den så klagar den på raden .open strSQL, strConString

är det nåt speciellt för mysql i den här pagingen?

Kolla vad Mysql ger för felmeddelande. Det är enklare än att gissa vad som är fel. I php skriver man mysql_error() men jag vet tyvärr inte vad motsvarande funktion heter i asp.

Hittar du inget lämpligt i asp så skriv ut queryn på skärmen, kopiera och klistra in den i mysql och utför den själv och se vad som händer.

med:
Set objRs = Server.Createobject("Adodb.Recordset")
strSQL = "SELECT mailRead, username, mailDate, mailTime, sender, Headline, message, mailID,Reciever "&_
"FROM tblUsers INNER JOIN tblUsers_imail ON tblUsers.userID = tblUsers_imail.sender "&_
"WHERE Reciever=" & Session("userID") &" order by mailID desc"
strConString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=adress till databasen;PORT=3306;DATABASE=anvnamn;USER=anvnamn;PASSWORD=lösenord;OPTION=3;"

'================================================================================================
function getPreviousLink( intp )
if intp > 1 then
getPreviousLink = " <a class=""menu"" href='?p=" & intp - 1 & "'> &laquo; Föregående</a> "
else
If intp < 2 then
response.write "&nbsp;"
end if
end if
end function
'================================================================================================

'================================================================================================
function getNextLink( intPageId, intPageCount )
if cint( intpageId ) <> cint( intPageCount ) then
getNextLink = " <a class=""menu"" href='?p=" & intp + 1 & "'> Nästa &raquo;</a> "
else
getNextLink = " Nästa »"
end if
end function
'================================================================================================

'================================================================================================
function getLastLink( intPageCount )
getLastLink = " <a class=""menu"" href='?p=" & intPageCount & "'>Sista sidan</a> "
end function
'================================================================================================

'================================================================================================
function getPageInfo( intp, intPageCount )
getPageInfo = "<a class=""menu""> Sida: " & intp & " </a>"
end function
'================================================================================================


intp = request.querystring( "p" )
if intp = "" then intp = 1

with objRs
.cursorlocation = 3
.open strSQL, strConString
.pagesize = 20
end with

If objRs.EOF Then
Response.Write "Din inbox är tom<p>"
Else
intPages = cint(objRs.pagecount)
intCurrentPost = 0
objRs.absolutepage = intp



får jag:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/mail/paging.asp, line 50

Rad 50 är end with i
with objRs
.cursorlocation = 3
.open strSQL, strConString
.pagesize = 20
end with