Seitenweise Navigation mit ASP

[Markus]

Erstmal vielen Dank für die ganzen Antworten.

Hier ist mal mein Script. Ich glaube das Problem liegt im Request.Form - Als erstes lese ich Daten aus einem Formular aus und danach rufe ich das Script selbst wieder auf und da denke ich mal liegt das Problem.

<PRE>

<!--#INCLUDE VIRTUAL="../../inc/ADOVBS.INC" -->
<%
' zuerst wird festgestellt, in welche Richtung geblättert wird
' beim ersten Aufruf der Seite sind alle Parameter NULL
query = Request.QueryString("MOVE")

IF query = "next" THEN  
Session("CurrentPage")=Session("CurrentPage")+1
END IF

IF query = "prev" THEN  
Session("CurrentPage")=Session("CurrentPage")-1
END IF

IF query <> "" AND NOT query = "prev" AND NOT query = "next" THEN  
Session("CurrentPage") = CINT(query)
END IF

' Beim ersten Mal Startwert der Seitenzähler auf 1 setzen
IF Session("CurrentPage")="" THEN
   Session("CurrentPage")= 1
END IF

Set Conn=Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.RecordSet")
Conn.Open "web_kunden"
RS.Open "SELECT * FROM BC_Auslesen where K_Name LIKE '" + Request.Form("K_Name") + "%%' ORDER BY K_Name", Conn, adopenstatic

howmanyrecs=RS.recordcount

RS.PageSize = 30
RS.AbsolutePage = Session("CurrentPage")
DIM zeile
zeile = 0
%>

<BR><BR>

<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="570">
<TR>
<TD WIDTH="70"></TD>
<TD WIDTH="500">

<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="500">
<TR>
<TD WIDTH="270" BGCOLOR="#004080">  <FONT SIZE="2" FACE="ARIAL" CLASS="font9" COLOR="#FFFFFF"><B>Suchergebnis</B></FONT></TD>
<TD WIDTH="55"><IMG SRC="../../images/fv_bw.gif"></TD>
<TD WIDTH="175" ALIGN="RIGHT"><FONT SIZE="2" FACE="ARIAL" CLASS="font9">[ <A HREF="s_bcard_suchen.idc">neue Suche</A> ]</FONT></TD>
</TR>
<TR><TD COLSPAN="3" BGCOLOR="#004080"></TD></TR>
</TABLE>

<BR>

<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="1" WIDTH="500">

<%
IF howmanyrecs = 0  THEN
response.write "<TR><TD ALIGN=CENTER><BR><FONT SIZE=2 FACE=ARIAL CLASS=font9>"
response.write "Es wurden <B>" & howmanyrecs & " Datensätze "
IF Request.Form("A_ID") <> 0 THEN
response.write "in Ihrem Adressbuch"
ELSE
END IF
response.write "</B> gefunden</FONT><TD><TR>"
ELSE
END IF
%>

<%
WHILE NOT RS.EOF AND zeile < RS.PageSize
%>

<TR BGCOLOR="#EFEFEF">
<TD WIDTH="250"><FONT SIZE="2" FACE="ARIAL" CLASS="font9"><A HREF="s_bcard_eintrag.idc?K_ID=<%=RS("K_ID")%>&KL_ID=<%=Request.Form("KL_ID")%>&IP=<% = Request.ServerVariables("REMOTE_ADDR")%>"><B><%=RS("K_Name")%></B> <%=RS("K_Vorname")%> <%=RS("K_Titel")%></A></FONT></TD>
<TD WIDTH="250" ALIGN="RIGHT"><FONT SIZE="2" FACE="ARIAL" CLASS="font9"><A HREF="s_bcard_eintrag.idc?K_ID=<%=RS("K_ID")%>&IP=<% = Request.ServerVariables("REMOTE_ADDR")%>"><%=RS("K_LKZ")%> - <%=RS("K_PLZ")%> <%=RS("K_Ort")%></A></FONT></TD>
</TR>
<TR>
<TD></TD>
<TD ALIGN="RIGHT" BGCOLOR="#EFEFEF"><FONT SIZE="2" FACE="ARIAL" CLASS="font9"><A HREF="s_bcard_eintrag.idc?K_ID=<%=RS("K_ID")%>&IP=<% = Request.ServerVariables("REMOTE_ADDR")%>"><%=RS("K_Unternehmen")%></A></FONT></TD>
</TR>
<TR><TD COLSPAN="2" HEIGHT="10"></TD></TR>

<%
RS.MoveNext  
zeile = zeile + 1
WEND
%>

</TABLE>

<BR>

<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="1" WIDTH="500">
<TR>
<TD ALIGN="CENTER"><FONT SIZE="1" FACE="ARIAL" CLASS="font8">

<!-- Navigationsinstrumente erzeugen -->
<%
  IF Session("CurrentPage") > 1 THEN
%>
  
<A HREF="testsuchen.asp?MOVE=prev"> [Zurück] </A>

<%
END IF
  FOR i = 1 TO RS.PageCount    
  IF RS.AbsolutePage <> i THEN    
%>

<A HREF="testsuchen.asp?MOVE=<% =i %>"> <% =i %> </A>
  
<% ELSE %>

<B><% = i %></B>

<%
END IF
NEXT
IF Session("CurrentPage") < RS.PageCount THEN
%>

<A HREF="testsuchen.asp?MOVE=next"> [Weiter] </A></FONT></TD>
</TR>
</TABLE>

</TD></TR>
</TABLE>

<%
END IF
RS.Close
set RS=nothing
Conn.Close
%>

</PRE>