dan187
08-04-2003, 02:11 PM
hi
i am new to mysql and now i have a problem i cant find any solution for ... i would make a page counter for my recordset an the code below works fine in every project i have made using mssql server. now with mysql i get the bottom error message and equal what i ve done with cursor type or location have fixed it .
any idea what to do ?
<%
SQL = "Select UserID,UserNick,UserEmail,Aktiv,LastLogin,Gruppe,Logincount from tabUser order by UserNick ASC"
intCounter = 1
AbsolutePage = Request("PN")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.PageSize = 20
rs.CacheSize = 20
rs.Open SQL, db, 3, 3
If AbsolutePage = "" Or Not IsNumeric(AbsolutePage) Or CInt(AbsolutePage) > CInt(rs.PageCount) Then
AbsolutePage = 1
End if
if not rs.eof then
rs.AbsolutePage = AbsolutePage
strBgcolor = "#ececec"
strcounter = 1
do until rs.eof And intCounter <= 20
if strBgcolor = "#CCCCCC" then
strBgcolor = "#ececec"
Else
strBgcolor = "#CCCCCC"
End if
%>
<tr bgcolor="<%= strBGColor %>">
<td ><strong><%= strCounter %> .</strong></td>
<td><%= rs("UserID") %></td>
<td><%= rs("UserNick") %></td>
<td><%= rs("UserEmail") %></td>
<td><%= rs("LastLogin") %></td>
<td><%= rs("Logincount") %></td>
Kompilierungsfehler in Microsoft VBScript- Fehler '800a03ea'
Syntaxfehler
/iisHelp/common/500-100.asp, line 160
elseIf (objASPError.Description > "") Then
^
ADODB.Recordset- Fehler '800a0cb3'
Das aktuelle Recordset unterstützt keine Lesezeichen. Hierbei handelt es sich möglicherweise um eine Einschränkung seitens des Providers oder des gewählten Cursortyps.
/ncj/admin/user.asp, line 73
i am new to mysql and now i have a problem i cant find any solution for ... i would make a page counter for my recordset an the code below works fine in every project i have made using mssql server. now with mysql i get the bottom error message and equal what i ve done with cursor type or location have fixed it .
any idea what to do ?
<%
SQL = "Select UserID,UserNick,UserEmail,Aktiv,LastLogin,Gruppe,Logincount from tabUser order by UserNick ASC"
intCounter = 1
AbsolutePage = Request("PN")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.PageSize = 20
rs.CacheSize = 20
rs.Open SQL, db, 3, 3
If AbsolutePage = "" Or Not IsNumeric(AbsolutePage) Or CInt(AbsolutePage) > CInt(rs.PageCount) Then
AbsolutePage = 1
End if
if not rs.eof then
rs.AbsolutePage = AbsolutePage
strBgcolor = "#ececec"
strcounter = 1
do until rs.eof And intCounter <= 20
if strBgcolor = "#CCCCCC" then
strBgcolor = "#ececec"
Else
strBgcolor = "#CCCCCC"
End if
%>
<tr bgcolor="<%= strBGColor %>">
<td ><strong><%= strCounter %> .</strong></td>
<td><%= rs("UserID") %></td>
<td><%= rs("UserNick") %></td>
<td><%= rs("UserEmail") %></td>
<td><%= rs("LastLogin") %></td>
<td><%= rs("Logincount") %></td>
Kompilierungsfehler in Microsoft VBScript- Fehler '800a03ea'
Syntaxfehler
/iisHelp/common/500-100.asp, line 160
elseIf (objASPError.Description > "") Then
^
ADODB.Recordset- Fehler '800a0cb3'
Das aktuelle Recordset unterstützt keine Lesezeichen. Hierbei handelt es sich möglicherweise um eine Einschränkung seitens des Providers oder des gewählten Cursortyps.
/ncj/admin/user.asp, line 73