List page ASP problem

A

Amateur

Dear Sirs
I have an ASP List page which is showing all records from my DB table (shown
in groups of 10 records).
The ASP page is working fine until record number 30. All other records
(behind record 30) are showing the data from record number 30.
Does anyone has any idea about the reason for that?
The page is not showing any error message (the "on Error resume next" is out).
I would be happy about any help offered.
Thanks
Klaus
P.S. Maybe for easier understanding of my problem please go to:
http://www.bellfield-barna.com/salespersonal/1001/contactos_web.asp . Choose
10 records per page, go to page 3 than look at the last record and go to page
4 (you will find 10 times the last record of page 3).
 
K

Kathleen Anderson

Amateur:

I can't look at your site while I'm at work - it is blocked by our proxy
server.

Did you use the Database Results Wizard to create the page? Can you post the
SQL from the page here?

--

~ Kathleen Anderson
Microsoft MVP - FrontPage
Spider Web Woman Designs
Expression Web Resources: http://www.spiderwebwoman.com/xweb/
FrontPage Resources: http://www.spiderwebwoman.com/resources/
Please reply to the newsgroup for the benefit of others
 
A

Amateur

Here is the code. It's actually a bid mixed from everything - FP, Ataf and my
own silly writing:

<!--#include File ="globalsub.asp"-->
<%

If Request.QueryString("dbcmd")="new" then
response.redirect "contactos_web.asp?cmd=New"
End if
If Request.QueryString("dbcmd")="delete" then
Set conntemp = server.CreateObject("adodb.Connection")
conntemp.open
"DSN=access;Database=f:\www.bellfield-barna.com\salespersonal\websales.mdb"
SqlStr = "DELETE FROM contactos_1001 WHERE autonumber="+
Request.QueryString("db_autonumber")
conntemp.Execute (SqlStr)
conntemp.Close
SqlStr=""
End if

If Request.QueryString("dbcmd")="save" then
Set conntemp = server.CreateObject("adodb.Connection")
conntemp.open
"DSN=access;Database=f:\www.bellfield-barna.com\salespersonal\websales.mdb"
SqlStr = "UPDATE contactos_1001 SET "

Sqlstr=SqlStr+"firstname='"+FixDbFieldSave(Request.QueryString("db_firstname")) + "', "

Sqlstr=SqlStr+"lastname='"+FixDbFieldSave(Request.QueryString("db_lastname"))
+ "', "

Sqlstr=SqlStr+"telephone='"+FixDbFieldSave(Request.QueryString("db_telephone")) + "', "

Sqlstr=SqlStr+"mobilephone='"+FixDbFieldSave(Request.QueryString("db_mobilephone")) + "', "
Sqlstr=SqlStr+"sendbrochure="+Request.QueryString("db_sendbrochure") + ", "
Sqlstr=SqlStr+"sendpostvisit="+Request.QueryString("db_sendpostvisit") +
", "

Sqlstr=SqlStr+"information='"+FixDbFieldSave(Request.QueryString("db_information")) + "', "
SqlStr = Mid(SqlStr, 1, Len(SqlStr) - 2)
SqlStr = SqlStr + " WHERE autonumber="+
Request.QueryString("db_autonumber")+ " "
If Instr(sqlstr," SE ")<=0 Then
conntemp.Execute (SqlStr)
End if
conntemp.close
SqlStr=""
End if
gui = request.querystring("gui")
curpage = request.querystring("Curpage")
If Curpage = "" Then Curpage = 1
Interval = request.querystring("Interval")
If Interval = "" Then Interval = 5
prefix=trim(Request.querystring("prefix"))
If prefix = "" then
prefix = "*"
End if
prefix_Operator=trim(Request.querystring("prefix_Operator"))
If prefix_Operator = "" then
prefix_Operator = "OR"
End if
If prefix_Operator = "OR" then
prefix_Operator_ORvar=" checked"
prefix_Operator_ANDvar=""
Else
prefix_Operator_ORvar=""
prefix_Operator_ANDvar=" checked"
End if
If (prefix<>"") And (prefix <> "*") then
SqlStr = SqlStr+"prefix LIKE '%"+prefix+"%' " + prefix_Operator + " "
End if
If SqlStr <> "" Then
SqlStrCount = "SELECT Count(autonumber) As NoOfRecs FROM contactos_1001
Where "+ SqlStr
SqlStrCount = Mid(SqlStrCount,1,len(SqlStrCount)-4)
Else
SqlStrCount = "SELECT Count(autonumber) As NoOfRecs FROM contactos_1001"
End if
If SqlStr <> "" Then
SqlStr ="SELECT * FROM contactos_1001 WHERE "+ SqlStr
SqlStr = Mid(SqlStr,1,len(SqlStr)-4)
Else
Sqlstr ="SELECT * FROM contactos_1001"
End if
SqlStr = SqlStr + " ORDER BY autonumber"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="ATAF Version 6.1.0">
<title>Contactosweb</title>
<base target="_self">
<link rel="stylesheet" type="text/css" href="globalcss.css">

<script Language="JavaScript">
function winopenexcel (sqlstr)
{
msg=open("","NewWindow","toolbar=no,location=no,directories=no,status=no,me
nubar=yes,scrollbars=yes,resizable=yes,copyhistory
=no,width=400,height=150");
msg.location = "toexcel.asp?sqlstr="+sqlstr;
msg.focus()
}
</script>

</head>
<body class="formpage" topmargin="0" leftmargin="0" rightmargin="0"
bottommargin="0" marginwidth="0" marginheight="0" style="background-color:
#DFDFDF">
<table width="553" border="0" height="89">
<tr>
<td></tr>
<td></tr>
<td height="1"></td>
</tr>
<tr>
<td></td>
<td align="left"><img border="0" src="../../../BIE/images/c1_top.GIF"
width="539" height="17"></td>
<td height="27"></td>
</tr>
<tr>
<td></td>
<td></td>
<td height="0"></td>

</tr>
<tr>

<td></td>
<td valign="Default" >
<form method="GET" action="contactos_web.asp" name="contactos_1001"
onSubmit="return Checkform(this);">

<table border="0" cellpadding="0" cellspacing="0" class="formpagetable"
width="538" style="border-width: 0">
<tr>
<td colspan="2">
<table width="539" border="0">

</table>
<tr><td colspan="2" align="centre" class="listpagetablelabel" height="19">
<p align="center">
<input type="submit" value="Lista" Class="listpagebutton"
<%=ShowTextOnPic("Chasquido aquí para poner sus archivos en una lista")%>>
Ver<%=CreateDropDownBox(Cstr(interval), "5;10", "interval", "1",
"class='listpagetablelabel'", Cstr(interval))%> Archivos por página
</td>
</tr>

<p align="left"></td></tr>
<input type="hidden" name="cmd" value="Find">
</table>
</form>
<table border="0" cellpadding="0" cellspacing="0">
<%
If (Request.Querystring("cmd")="Find") Then
Set conntemp = server.CreateObject("adodb.Connection")
conntemp.open
"DSN=access;Database=f:\www.bellfield-barna.com\salespersonal\websales.mdb"
Set rs = conntemp.Execute(SqlStrCount)
NoOfRecs = rs("NoOfRecs")
Set rs = conntemp.Execute(SqlStr)
If rs.EOF <> True Then
End If
If CInt(curpage) > 1 Then
MoveForward = CInt(Interval) * (CInt(curpage) - 1)
For xx = 1 To MoveForward
If rs.EOF <> True Then
rs.MoveNext
End If
Next
End If
End if
If (Request.Querystring("cmd")="Find") Then
If (rs.EOF<>True) Then
Response.write " <tr class='listpageresultheader'>"
Response.write "<td></td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
class="+qu+"listsave"+qu+">"
Response.write "Nombre"
Response.write " </td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
class="+qu+"listsave"+qu+">"
Response.write "Apellido"
Response.write " </td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
class="+qu+"listsave"+qu+">"
Response.write "Teléfono"
Response.write " </td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
class="+qu+"listsave"+qu+">"
Response.write "Movil"
Response.write " </td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
class="+qu+"listsave"+qu+">"
Response.write "Bro."
Response.write " </td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
class="+qu+"listsave"+qu+">"
Response.write "Carta"
Response.write " </td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
class="+qu+"listsave"+qu+">"
Response.write "Informaciön"
Response.write " </td>"
Response.write "<td></td>"
Response.write "</tr>"
End if
End if
countrecs_new=0
If (Request.Querystring("cmd")="Find") Then
If (rs.EOF=True) Then
Response.write "¡Lamentable!, ningunos archivos encontrados"
End if
End if
If (Request.Querystring("cmd")="Find") Then
While (rs.EOF <> True) And (Request.Querystring("cmd")="Find") AND
(countrecs_new<CInt(Interval))
If lastWas = True Then
Varclass = "listpageresultline"
lastWas = False
Else
Varclass = "listpageresultlinealt"
lastWas = True
End If
Response.write "<form method="+qu+"GET"+qu+"
name="+qu+"db"+CStr(Rs("autonumber"))+qu+" target="+qu+"_self"+qu+">"
Response.write "<input type="+qu+"hidden"+qu+"
name="+qu+"db_autonumber"+qu+" value="+qu+CStr(Rs("autonumber"))+qu+">"
Response.write "<input type="+qu+"hidden"+qu+" name="+qu+"dbcmd"+qu+"
value="+qu+"save"+qu+">"
For Each Item In request.querystring
If (Item <> "dbcmd") And (Mid(item,1,3)<>"db_") Then
Response.Write "<input type="+qu+"hidden"+qu+" name="+qu+item+qu+"
value="+qu+request.querystring(Item)+qu+">"
End If
Next
Response.write "<tr title="+qu+"Chasquido aquí para corregir registro"+qu+"
class="+qu+varclass+qu+"
onClick="+qu+"db"+CStr(Rs("autonumber"))+".select_button.className
='listbutselect';"+qu+"
onMouseout="+qu+"db"+CStr(Rs("autonumber"))+".select_button.className
='listbutnotselect';"+qu+">"
Response.write "<td><input type="+qu+"button"+qu+" value="+qu+" "+qu+"
name="+qu+"select_button"+qu+"
onClick="+qu+"window.top.frames['I1'].location.href='contactos_1001form.asp?cmd=Fromlis t&autonumber="+CStr(Rs("autonumber"))+"'"+qu+"></td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
name="+qu+"db_firstname"+qu+" value="+qu+FillEmpty(rs("firstname"))+qu+"
size="+qu+"8"+qu+">"
Response.write "</td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
name="+qu+"db_lastname"+qu+" value="+qu+FillEmpty(rs("lastname"))+qu+"
size="+qu+"17"+qu+">"
Response.write "</td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
name="+qu+"db_telephone"+qu+" value="+qu+FillEmpty(rs("telephone"))+qu+"
size="+qu+"15"+qu+">"
Response.write "</td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
name="+qu+"db_mobilephone"+qu+" value="+qu+FillEmpty(rs("mobilephone"))+qu+"
size="+qu+"15"+qu+">"
Response.write "</td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
name="+qu+"db_sendbrochure"+qu+"
value="+qu+FillEmpty(rs("sendbrochure"))+qu+" size="+qu+"2"+qu+">"
Response.write "</td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
name="+qu+"db_sendpostvisit"+qu+"
value="+qu+FillEmpty(rs("sendpostvisit"))+qu+" size="+qu+"2"+qu+">"
Response.write "</td>"
Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
name="+qu+"db_information"+qu+" value="+qu+FillEmpty(rs("information"))+qu+"
size="+qu+"15"+qu+">"
Response.write "</td>"
Response.write "</td><td>"
Response.write "</td>"
Response.write "</form>"
Response.write "</tr>"+Crlf
countrecs_new=countrecs_new+1
Rs.movenext
Wend
End if
If (Request.Querystring("cmd")="Find") Then
rs.Close
Set rs = Nothing
conntemp.Close
Set conntemp = Nothing
End if
%>
</table>

<%
If (Request.Querystring("cmd")="Find") Then%>
<center>
<div align="center">
<%=IntervalBox(curpage, Interval, NoOfRecs, "contactos_web.asp",
request.querystring, "#000000", "2")%>
</center>
</div>
<%End If
%>
</td><td height="44"></td>
</tr>
<tr>
<td width="0"></td>
<td width="539"></td>
<td height="2" width="0"></td>
</tr>

</table>
<script language="JavaScript">
<!--
function Checkform(thisform) {
// Init val
strError = 'ATAF Version 6.1.0, Database : contactos_web\n\nYou have to
correct the following error(s)\nbefore you can start your search.\n\n';
intError = 0;
if (intError == 1) {
alert (strError)
return false;
}
}
// -->
</script>
<%
If Err <> 0 Then
pad="Sql Script Errors Occured!\n"
pad = pad + "Error Number= #" & Err.Number & "\n"
pad = pad + "Error Desc.= " & Err.Description &"\n\n"
pad = pad + "Data not saved !!!\n"
pad=Replace(pad,"'","´")
response.write "<script language="+qu+"JavaScript"+qu+">"+CrLf
response.write "<!--"+CrLf
response.write "strError = '"+pad+"';"+Crlf
response.write "alert (strError);"+CrLf
response.write "// -->"+CrLf
response.write "</script>"+CrLf
End If

If Session("Err") <> 0 Then
pad="Sql Script Errors Occured!\n"
pad=pad + "Error Number= #<b>" & Session("Err") & "\n"
pad=pad + "Error Desc.= <b>" & Session("Description") &"\n\n"
pad = pad + "Data not saved !!!\n"
pad=Replace(pad,"'","´")
response.write "<script language="+qu+"JavaScript"+qu+">"+CrLf
response.write "<!--"+CrLf
response.write "strError = '"+pad+"';"+Crlf
response.write "alert (strError);"+CrLf
response.write "// -->"+CrLf
response.write "</script>"+CrLf
Session("Err")=0
End If
%>

</body>
</html>
 
S

Stefan B Rusynko

The record pagination is controlled by the ATAF app you have installed
- Ask in an ATAF support group

PS
I don't even get to see any pages except the 1st 10 records (your page dropdown does not work)
--

_____________________________________________
SBR @ ENJOY (-: [ Microsoft MVP - FrontPage ]
"Warning - Using the F1 Key will not break anything!" (-;
_____________________________________________


| Here is the code. It's actually a bid mixed from everything - FP, Ataf and my
| own silly writing:
|
| <!--#include File ="globalsub.asp"-->
| <%
|
| If Request.QueryString("dbcmd")="new" then
| response.redirect "contactos_web.asp?cmd=New"
| End if
| If Request.QueryString("dbcmd")="delete" then
| Set conntemp = server.CreateObject("adodb.Connection")
| conntemp.open
| "DSN=access;Database=f:\www.bellfield-barna.com\salespersonal\websales.mdb"
| SqlStr = "DELETE FROM contactos_1001 WHERE autonumber="+
| Request.QueryString("db_autonumber")
| conntemp.Execute (SqlStr)
| conntemp.Close
| SqlStr=""
| End if
|
| If Request.QueryString("dbcmd")="save" then
| Set conntemp = server.CreateObject("adodb.Connection")
| conntemp.open
| "DSN=access;Database=f:\www.bellfield-barna.com\salespersonal\websales.mdb"
| SqlStr = "UPDATE contactos_1001 SET "
|
| Sqlstr=SqlStr+"firstname='"+FixDbFieldSave(Request.QueryString("db_firstname")) + "', "
|
| Sqlstr=SqlStr+"lastname='"+FixDbFieldSave(Request.QueryString("db_lastname"))
| + "', "
|
| Sqlstr=SqlStr+"telephone='"+FixDbFieldSave(Request.QueryString("db_telephone")) + "', "
|
| Sqlstr=SqlStr+"mobilephone='"+FixDbFieldSave(Request.QueryString("db_mobilephone")) + "', "
| Sqlstr=SqlStr+"sendbrochure="+Request.QueryString("db_sendbrochure") + ", "
| Sqlstr=SqlStr+"sendpostvisit="+Request.QueryString("db_sendpostvisit") +
| ", "
|
| Sqlstr=SqlStr+"information='"+FixDbFieldSave(Request.QueryString("db_information")) + "', "
| SqlStr = Mid(SqlStr, 1, Len(SqlStr) - 2)
| SqlStr = SqlStr + " WHERE autonumber="+
| Request.QueryString("db_autonumber")+ " "
| If Instr(sqlstr," SE ")<=0 Then
| conntemp.Execute (SqlStr)
| End if
| conntemp.close
| SqlStr=""
| End if
| gui = request.querystring("gui")
| curpage = request.querystring("Curpage")
| If Curpage = "" Then Curpage = 1
| Interval = request.querystring("Interval")
| If Interval = "" Then Interval = 5
| prefix=trim(Request.querystring("prefix"))
| If prefix = "" then
| prefix = "*"
| End if
| prefix_Operator=trim(Request.querystring("prefix_Operator"))
| If prefix_Operator = "" then
| prefix_Operator = "OR"
| End if
| If prefix_Operator = "OR" then
| prefix_Operator_ORvar=" checked"
| prefix_Operator_ANDvar=""
| Else
| prefix_Operator_ORvar=""
| prefix_Operator_ANDvar=" checked"
| End if
| If (prefix<>"") And (prefix <> "*") then
| SqlStr = SqlStr+"prefix LIKE '%"+prefix+"%' " + prefix_Operator + " "
| End if
| If SqlStr <> "" Then
| SqlStrCount = "SELECT Count(autonumber) As NoOfRecs FROM contactos_1001
| Where "+ SqlStr
| SqlStrCount = Mid(SqlStrCount,1,len(SqlStrCount)-4)
| Else
| SqlStrCount = "SELECT Count(autonumber) As NoOfRecs FROM contactos_1001"
| End if
| If SqlStr <> "" Then
| SqlStr ="SELECT * FROM contactos_1001 WHERE "+ SqlStr
| SqlStr = Mid(SqlStr,1,len(SqlStr)-4)
| Else
| Sqlstr ="SELECT * FROM contactos_1001"
| End if
| SqlStr = SqlStr + " ORDER BY autonumber"
| %>
| <html>
| <head>
| <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
| <meta name="GENERATOR" content="ATAF Version 6.1.0">
| <title>Contactosweb</title>
| <base target="_self">
| <link rel="stylesheet" type="text/css" href="globalcss.css">
|
| <script Language="JavaScript">
| function winopenexcel (sqlstr)
| {
| msg=open("","NewWindow","toolbar=no,location=no,directories=no,status=no,me
| nubar=yes,scrollbars=yes,resizable=yes,copyhistory
| =no,width=400,height=150");
| msg.location = "toexcel.asp?sqlstr="+sqlstr;
| msg.focus()
| }
| </script>
|
| </head>
| <body class="formpage" topmargin="0" leftmargin="0" rightmargin="0"
| bottommargin="0" marginwidth="0" marginheight="0" style="background-color:
| #DFDFDF">
| <table width="553" border="0" height="89">
| <tr>
| <td></tr>
| <td></tr>
| <td height="1"></td>
| </tr>
| <tr>
| <td></td>
| <td align="left"><img border="0" src="../../../BIE/images/c1_top.GIF"
| width="539" height="17"></td>
| <td height="27"></td>
| </tr>
| <tr>
| <td></td>
| <td></td>
| <td height="0"></td>
|
| </tr>
| <tr>
|
| <td></td>
| <td valign="Default" >
| <form method="GET" action="contactos_web.asp" name="contactos_1001"
| onSubmit="return Checkform(this);">
|
| <table border="0" cellpadding="0" cellspacing="0" class="formpagetable"
| width="538" style="border-width: 0">
| <tr>
| <td colspan="2">
| <table width="539" border="0">
|
| </table>
| <tr><td colspan="2" align="centre" class="listpagetablelabel" height="19">
| <p align="center">
| <input type="submit" value="Lista" Class="listpagebutton"
| <%=ShowTextOnPic("Chasquido aquí para poner sus archivos en una lista")%>>
| Ver<%=CreateDropDownBox(Cstr(interval), "5;10", "interval", "1",
| "class='listpagetablelabel'", Cstr(interval))%> Archivos por página
| </td>
| </tr>
|
| <p align="left"></td></tr>
| <input type="hidden" name="cmd" value="Find">
| </table>
| </form>
| <table border="0" cellpadding="0" cellspacing="0">
| <%
| If (Request.Querystring("cmd")="Find") Then
| Set conntemp = server.CreateObject("adodb.Connection")
| conntemp.open
| "DSN=access;Database=f:\www.bellfield-barna.com\salespersonal\websales.mdb"
| Set rs = conntemp.Execute(SqlStrCount)
| NoOfRecs = rs("NoOfRecs")
| Set rs = conntemp.Execute(SqlStr)
| If rs.EOF <> True Then
| End If
| If CInt(curpage) > 1 Then
| MoveForward = CInt(Interval) * (CInt(curpage) - 1)
| For xx = 1 To MoveForward
| If rs.EOF <> True Then
| rs.MoveNext
| End If
| Next
| End If
| End if
| If (Request.Querystring("cmd")="Find") Then
| If (rs.EOF<>True) Then
| Response.write " <tr class='listpageresultheader'>"
| Response.write "<td></td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
| class="+qu+"listsave"+qu+">"
| Response.write "Nombre"
| Response.write " </td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
| class="+qu+"listsave"+qu+">"
| Response.write "Apellido"
| Response.write " </td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
| class="+qu+"listsave"+qu+">"
| Response.write "Teléfono"
| Response.write " </td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
| class="+qu+"listsave"+qu+">"
| Response.write "Movil"
| Response.write " </td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
| class="+qu+"listsave"+qu+">"
| Response.write "Bro."
| Response.write " </td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
| class="+qu+"listsave"+qu+">"
| Response.write "Carta"
| Response.write " </td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+"
| class="+qu+"listsave"+qu+">"
| Response.write "Informaciön"
| Response.write " </td>"
| Response.write "<td></td>"
| Response.write "</tr>"
| End if
| End if
| countrecs_new=0
| If (Request.Querystring("cmd")="Find") Then
| If (rs.EOF=True) Then
| Response.write "¡Lamentable!, ningunos archivos encontrados"
| End if
| End if
| If (Request.Querystring("cmd")="Find") Then
| While (rs.EOF <> True) And (Request.Querystring("cmd")="Find") AND
| (countrecs_new<CInt(Interval))
| If lastWas = True Then
| Varclass = "listpageresultline"
| lastWas = False
| Else
| Varclass = "listpageresultlinealt"
| lastWas = True
| End If
| Response.write "<form method="+qu+"GET"+qu+"
| name="+qu+"db"+CStr(Rs("autonumber"))+qu+" target="+qu+"_self"+qu+">"
| Response.write "<input type="+qu+"hidden"+qu+"
| name="+qu+"db_autonumber"+qu+" value="+qu+CStr(Rs("autonumber"))+qu+">"
| Response.write "<input type="+qu+"hidden"+qu+" name="+qu+"dbcmd"+qu+"
| value="+qu+"save"+qu+">"
| For Each Item In request.querystring
| If (Item <> "dbcmd") And (Mid(item,1,3)<>"db_") Then
| Response.Write "<input type="+qu+"hidden"+qu+" name="+qu+item+qu+"
| value="+qu+request.querystring(Item)+qu+">"
| End If
| Next
| Response.write "<tr title="+qu+"Chasquido aquí para corregir registro"+qu+"
| class="+qu+varclass+qu+"
| onClick="+qu+"db"+CStr(Rs("autonumber"))+".select_button.className
| ='listbutselect';"+qu+"
| onMouseout="+qu+"db"+CStr(Rs("autonumber"))+".select_button.className
| ='listbutnotselect';"+qu+">"
| Response.write "<td><input type="+qu+"button"+qu+" value="+qu+" "+qu+"
| name="+qu+"select_button"+qu+"
| onClick="+qu+"window.top.frames['I1'].location.href='contactos_1001form.asp?cmd=Fromlis
t&autonumber="+CStr(Rs("autonumber"))+"'"+qu+"></td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
| name="+qu+"db_firstname"+qu+" value="+qu+FillEmpty(rs("firstname"))+qu+"
| size="+qu+"8"+qu+">"
| Response.write "</td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
| name="+qu+"db_lastname"+qu+" value="+qu+FillEmpty(rs("lastname"))+qu+"
| size="+qu+"17"+qu+">"
| Response.write "</td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
| name="+qu+"db_telephone"+qu+" value="+qu+FillEmpty(rs("telephone"))+qu+"
| size="+qu+"15"+qu+">"
| Response.write "</td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
| name="+qu+"db_mobilephone"+qu+" value="+qu+FillEmpty(rs("mobilephone"))+qu+"
| size="+qu+"15"+qu+">"
| Response.write "</td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
| name="+qu+"db_sendbrochure"+qu+"
| value="+qu+FillEmpty(rs("sendbrochure"))+qu+" size="+qu+"2"+qu+">"
| Response.write "</td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
| name="+qu+"db_sendpostvisit"+qu+"
| value="+qu+FillEmpty(rs("sendpostvisit"))+qu+" size="+qu+"2"+qu+">"
| Response.write "</td>"
| Response.write "<td align="+qu+"left"+qu+" valign="+qu+"top"+qu+">"
| Response.write "<input class="+qu+varclass+qu+" type="+qu+"text"+qu+"
| name="+qu+"db_information"+qu+" value="+qu+FillEmpty(rs("information"))+qu+"
| size="+qu+"15"+qu+">"
| Response.write "</td>"
| Response.write "</td><td>"
| Response.write "</td>"
| Response.write "</form>"
| Response.write "</tr>"+Crlf
| countrecs_new=countrecs_new+1
| Rs.movenext
| Wend
| End if
| If (Request.Querystring("cmd")="Find") Then
| rs.Close
| Set rs = Nothing
| conntemp.Close
| Set conntemp = Nothing
| End if
| %>
| </table>
|
| <%
| If (Request.Querystring("cmd")="Find") Then%>
| <center>
| <div align="center">
| <%=IntervalBox(curpage, Interval, NoOfRecs, "contactos_web.asp",
| request.querystring, "#000000", "2")%>
| </center>
| </div>
| <%End If
| %>
| </td><td height="44"></td>
| </tr>
| <tr>
| <td width="0"></td>
| <td width="539"></td>
| <td height="2" width="0"></td>
| </tr>
|
| </table>
| <script language="JavaScript">
| <!--
| function Checkform(thisform) {
| // Init val
| strError = 'ATAF Version 6.1.0, Database : contactos_web\n\nYou have to
| correct the following error(s)\nbefore you can start your search.\n\n';
| intError = 0;
| if (intError == 1) {
| alert (strError)
| return false;
| }
| }
| // -->
| </script>
| <%
| If Err <> 0 Then
| pad="Sql Script Errors Occured!\n"
| pad = pad + "Error Number= #" & Err.Number & "\n"
| pad = pad + "Error Desc.= " & Err.Description &"\n\n"
| pad = pad + "Data not saved !!!\n"
| pad=Replace(pad,"'","´")
| response.write "<script language="+qu+"JavaScript"+qu+">"+CrLf
| response.write "<!--"+CrLf
| response.write "strError = '"+pad+"';"+Crlf
| response.write "alert (strError);"+CrLf
| response.write "// -->"+CrLf
| response.write "</script>"+CrLf
| End If
|
| If Session("Err") <> 0 Then
| pad="Sql Script Errors Occured!\n"
| pad=pad + "Error Number= #<b>" & Session("Err") & "\n"
| pad=pad + "Error Desc.= <b>" & Session("Description") &"\n\n"
| pad = pad + "Data not saved !!!\n"
| pad=Replace(pad,"'","´")
| response.write "<script language="+qu+"JavaScript"+qu+">"+CrLf
| response.write "<!--"+CrLf
| response.write "strError = '"+pad+"';"+Crlf
| response.write "alert (strError);"+CrLf
| response.write "// -->"+CrLf
| response.write "</script>"+CrLf
| Session("Err")=0
| End If
| %>
|
| </body>
| </html>
| --------------------------------------------------------------------------------
|
|
| "Kathleen Anderson" wrote:
|
| > Amateur:
| >
| > I can't look at your site while I'm at work - it is blocked by our proxy
| > server.
| >
| > Did you use the Database Results Wizard to create the page? Can you post the
| > SQL from the page here?
| >
| > --
| >
| > ~ Kathleen Anderson
| > Microsoft MVP - FrontPage
| > Spider Web Woman Designs
| > Expression Web Resources: http://www.spiderwebwoman.com/xweb/
| > FrontPage Resources: http://www.spiderwebwoman.com/resources/
| > Please reply to the newsgroup for the benefit of others
| >
| >
| >
| > | > > Dear Sirs
| > > I have an ASP List page which is showing all records from my DB table
| > > (shown
| > > in groups of 10 records).
| > > The ASP page is working fine until record number 30. All other records
| > > (behind record 30) are showing the data from record number 30.
| > > Does anyone has any idea about the reason for that?
| > > The page is not showing any error message (the "on Error resume next" is
| > > out).
| > > I would be happy about any help offered.
| > > Thanks
| > > Klaus
| > > P.S. Maybe for easier understanding of my problem please go to:
| > > http://www.bellfield-barna.com/salespersonal/1001/contactos_web.asp .
| > > Choose
| > > 10 records per page, go to page 3 than look at the last record and go to
| > > page
| > > 4 (you will find 10 times the last record of page 3).
| >
| >
| >
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top