Please help with IF EOF TRUE

Goran · Goran

Hello,
I am stuck with EOF TRUE error and not quite sure what I did wrong:
Here is code:
************************************************** **************************
****
<%Response.Buffer=TRUE%>
<%IF session("admin") = FALSE THEN Response.Redirect "admin.asp"%>

<%
tbl = Request.QueryString("which")
If tbl = "users" Then
ttl = "Users"
Else
ttl = "Administrators"
End If
%>

<html>

<head>
<title>Delete <%=ttl%></title>
</head>

<body vlink="#FFFFCC" alink="#FFFF00" link="#FFFFFF">

<div align="center">
<table border="1" cellspacing="4" width="657" height="543" cellpadding="2">

<tr>
<td valign="top" colspan="2" height="74" bgcolor="#660066">

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse:
collapse" width="100%" id="table8">
<tr>
<td>

<img border="0" src="../images/users.gif" width="32"
height="32"></td>
<td>
USER MANAGER</td>
<td>

<img border="0" src="../images/key.gif" width="32"
height="32"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td msopnltype="NavBody" rowspan="2" width="113" valign="top"
bgcolor="#660066">

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse:
collapse" width="100%" id="table7">
<tr>
<td align="center">

<a
href="javascript:history.back(1)">HOME</a></td>
</tr>
</table>
</td>
<td valign="top" height="419">


<%
'here is the connection string
Set conn = server.createobject("adodb.connection")
'this connection uses JET 4 it is the prefered method of connecting to an
access database
DSNtemp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.Mappath("/asplogin/login.mdb")
'if you cant use JET then comment out the line above and uncomment the line
below
'DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.Mappath("/asplogin/login.mdb")
conn.Open DSNtemp

SQL = "Select * from "& tbl
pagetot = 10

const adOpenForwardOnly = 0
const adOpenKeySet = 1
const adOpenDynamic = 2
const adOpenStatic = 3
const adLockReadOnly = 1
const adLockPessimistic = 2
const adLockOptimistic = 3
const adLockBatchOptimistic = 4
Set RS = Server.CreateObject("Adodb.RecordSet")
RS.Open SQL, Conn, adopenkeyset, adlockoptimistic
If RS.EOF Then
%>
<table cellspacing="1" border="0" cellpadding="2" width="100%">
<tr>
<td bgcolor="#CC0000">


Sorry, no records were found. <a
href="javascript:history.back(1)">Back To
<%=ttl%> Manager</a> </td>
</tr>
</table>

<%
ElseIf request("begin") = "" Then
begin = 1
Else
begin = Cint(request("begin"))
End If

tot = ((begin+pagetot)-1)

If tot > RS.RecordCount Then
tot = RS.RecordCount
End If

i = 1
navi = ""
For j = 1 to RS.RecordCount step pagetot
If j <> 1 Then navi = navi & " | "
If j = Cint(begin) Then
navi = navi & ""&i&""
Else
navi = navi & "<a href="""
navi = navi & Request.ServerVariables("url") & "?begin=" & j &
"&which=" & tbl
navi = navi & """>"
navi = navi & i & "</a>"
End If
i = i + 1
Next
i = 1
RS.Move begin - 1
%> 
Delete <%=ttl%>


<%
For x = begin to begin + (pagetot - 1)
If RS.EOF Then exit For
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse:
collapse" width="100%" id="table1" bgcolor="#FFFFDD">
<tr>
<td>User Name:</td>
<td><%=RS("uid")%></td>
<td>Address:</td>
<td><%=RS("Address")%></td>
</tr>
<tr>
<td>Password:</td>
<td><%=RS("pwd")%></td>
<td>ZIP Code:</td>
<td><%=RS("ZIP")%></td>
</tr>
<tr>
<td>First Name:</td>
<td><%=RS("FirstName")%></td>
<td>City:</td>
<td><%=RS("City")%></td>
</tr>
<tr>
<td>Last Name:</td>
<td><%=RS("LastName")%></td>
<td>Country:</td>
<td><%=RS("Country")%></td>
</tr>
<tr>
<td>Phone:</td>
<td><%=RS("PhoneNumber")%></td>
<td>Mobile:</td>
<td><%=RS("MobileNumber")%></td>
</tr>
<tr>
<td>Fax:</td>
<td><%=RS("Fax")%></td>
<td>Notes:</td>
<td><%=RS("Notes")%></td>
</tr>
<tr>
<td colspan="4">

<a href="delete2.asp?which=<%=tbl%>&id=<%=RS("id")%>" >
<img border="0" src="../images/btn_delete.gif" width="70"
height="30"></a></td>
</tr>
<tr>
<td colspan="4" bgcolor="#000000"> </td>
</tr>
</table>
<%
i = i + 1
RS.MoveNext
Next
%>
<table cellspacing="2" cellpadding="2" width="100%">
<tr>
<td align="right">

<%=ttl%> <%=begin%>
- <%=tot%> of <%=RS.RecordCount%> Page: <%=navi%> 
</td>
</tr>
</table>
 
<%
RS.Close
Set RS = nothing
Conn.close
Set Conn = Nothing
%> 
</td>
</tr>
<tr>
<td valign="top" height="50" width="544" bgcolor="#660066">


</td>
</tr>
</table>
</div>

</body>

</html>
************************************************** '''
Thank you....

/Goran

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system ([url]http://www.grisoft.com[/url]).
Version: 6.0.524 / Virus Database: 321 - Release Date: 06.10.2003

Bob Barrows · Bob Barrows

Aaarghh! Why all the irrelevant html garbage???? You're having a problem
with a vbscript statement! So show us the vbscript code!
Goran wrote:

> Hello,
> I am stuck with EOF TRUE error and not quite sure what I did wrong:
> Here is code:
>

************************************************** **************************

> ****

<snip>

> 'here is the connection string
> Set conn = server.createobject("adodb.connection")
> 'this connection uses JET 4 it is the prefered method of connecting
> to an access database
> DSNtemp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
> Server.Mappath("/asplogin/login.mdb")
> 'if you cant use JET then comment out the line above and uncomment
> the line below
> 'DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
> Server.Mappath("/asplogin/login.mdb")
> conn.Open DSNtemp
>
> SQL = "Select * from "& tbl

Bad. Do not use "Select *" in production code. Always spell out the fields
you want your query to return.

> pagetot = 10
>
> const adOpenForwardOnly = 0
> const adOpenKeySet = 1
> const adOpenDynamic = 2
> const adOpenStatic = 3
> const adLockReadOnly = 1
> const adLockPessimistic = 2
> const adLockOptimistic = 3
> const adLockBatchOptimistic = 4

[url]http://www.aspfaq.com/show.asp?id=2112[/url]

> Set RS = Server.CreateObject("Adodb.RecordSet")
> RS.Open SQL, Conn, adopenkeyset, adlockoptimistic

Bad. You are not planning on updating this particular recordset. Open a
read-only, forward-only recordset. And tell ADO what your command type is:
Const adCmdText = 1
RS.Open SQL, Conn, ,,adCmdText

> If RS.EOF Then
> %>

> ************************************************** '''
> Thank you....
>

Ummm - did I miss something? What's the problem?

Bob Barrows

Bob Barrows · Bob Barrows

Just a hint for you: if you are having a problem with a small part of your
code, strip out all the non-essential stuff (do it in a new page) and
concentrate on getting it working without all the distractions.
In other words, create a page that contains ONLY the server-side asp code
from this page and concentrate on getting that working. Instead of all that
html stuff, use a few response.write statments to help you debug it

HTH,
Bob Barrows

Goran wrote:

> Hello,
> I am stuck with EOF TRUE error and not quite sure what I did wrong:
> Here is code:
>

************************************************** **************************

> ****
> <%Response.Buffer=TRUE%>
> <%IF session("admin") = FALSE THEN Response.Redirect "admin.asp"%>
>
> <%
> tbl = Request.QueryString("which")
> If tbl = "users" Then
> ttl = "Users"
> Else
> ttl = "Administrators"
> End If
> %>
>
> <html>
>
> <head>
> <title>Delete <%=ttl%></title>
> </head>
>
>
> <body vlink="#FFFFCC" alink="#FFFF00" link="#FFFFFF">
>
> <div align="center">
> <table border="1" cellspacing="4" width="657" height="543"
> cellpadding="2"> 
> <tr>
> <td valign="top" colspan="2" height="74" bgcolor="#660066">
> 
> <table border="1" cellpadding="0" cellspacing="0"
> style="border-collapse: collapse" width="100%" id="table8">
> <tr>
> <td>
> 
> <img border="0" src="../images/users.gif" width="32"
> height="32"></td>
> <td>
> USER
> MANAGER</td> <td>
> 
> <img border="0" src="../images/key.gif" width="32"
> height="32"></td>
> </tr>
> </table>
> </td>
> </tr>
> <tr>
> <td msopnltype="NavBody" rowspan="2" width="113" valign="top"
> bgcolor="#660066">
> 
> <table border="1" cellpadding="0" cellspacing="0"
> style="border-collapse: collapse" width="100%" id="table7">
> <tr>
> <td align="center">
> 
> <a
> href="javascript:history.back(1)">HOME</a></td>
> </tr>
> </table>
> </td>
> <td valign="top" height="419">
> 
>
> <%
> 'here is the connection string
> Set conn = server.createobject("adodb.connection")
> 'this connection uses JET 4 it is the prefered method of connecting
> to an access database
> DSNtemp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
> Server.Mappath("/asplogin/login.mdb")
> 'if you cant use JET then comment out the line above and uncomment
> the line below
> 'DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
> Server.Mappath("/asplogin/login.mdb")
> conn.Open DSNtemp
>
> SQL = "Select * from "& tbl
> pagetot = 10
>
> const adOpenForwardOnly = 0
> const adOpenKeySet = 1
> const adOpenDynamic = 2
> const adOpenStatic = 3
> const adLockReadOnly = 1
> const adLockPessimistic = 2
> const adLockOptimistic = 3
> const adLockBatchOptimistic = 4
> Set RS = Server.CreateObject("Adodb.RecordSet")
> RS.Open SQL, Conn, adopenkeyset, adlockoptimistic
> If RS.EOF Then
> %>
> <table cellspacing="1" border="0" cellpadding="2" width="100%">
> <tr>
> <td bgcolor="#CC0000">
> 
> 
> Sorry, no records were found. <a
> href="javascript:history.back(1)">Back To
> <%=ttl%> Manager</a> </td>
> </tr>
> </table>
> 
> <%
> ElseIf request("begin") = "" Then
> begin = 1
> Else
> begin = Cint(request("begin"))
> End If
>
> tot = ((begin+pagetot)-1)
>
> If tot > RS.RecordCount Then
> tot = RS.RecordCount
> End If
>
> i = 1
> navi = ""
> For j = 1 to RS.RecordCount step pagetot
> If j <> 1 Then navi = navi & " | "
> If j = Cint(begin) Then
> navi = navi & ""&i&""
> Else
> navi = navi & "<a href="""
> navi = navi & Request.ServerVariables("url") & "?begin=" & j &
> "&which=" & tbl
> navi = navi & """>"
> navi = navi & i & "</a>"
> End If
> i = i + 1
> Next
> i = 1
> RS.Move begin - 1
> %> 
> Delete <%=ttl%>
> 
>
>
> <%
> For x = begin to begin + (pagetot - 1)
> If RS.EOF Then exit For
> %>
> <table border="1" cellpadding="0" cellspacing="0"
> style="border-collapse: collapse" width="100%" id="table1"
> bgcolor="#FFFFDD"> <tr>
> <td>User Name:</td>
> <td><%=RS("uid")%></td>
> <td>Address:</td>
> <td><%=RS("Address")%></td>
> </tr>
> <tr>
> <td>Password:</td>
> <td><%=RS("pwd")%></td>
> <td>ZIP Code:</td>
> <td><%=RS("ZIP")%></td>
> </tr>
> <tr>
> <td>First Name:</td>
> <td> size="2"><%=RS("FirstName")%></td> <td> face="Verdana" size="2">City:</td> <td> face="Verdana" size="2"><%=RS("City")%></td> </tr>
> <tr>
> <td>Last Name:</td>
> <td><%=RS("LastName")%></td>
> <td>Country:</td>
> <td><%=RS("Country")%></td>
> </tr>
> <tr>
> <td>Phone:</td>
> <td> size="2"><%=RS("PhoneNumber")%></td> <td> face="Verdana" size="2">Mobile:</td> <td> face="Verdana" size="2"><%=RS("MobileNumber")%></td> </tr>
> <tr>
> <td>Fax:</td>
> <td><%=RS("Fax")%></td>
> <td>Notes:</td>
> <td><%=RS("Notes")%></td>
> </tr>
> <tr>
> <td colspan="4">
> 
> <a href="delete2.asp?which=<%=tbl%>&id=<%=RS("id")%>" >
> <img border="0" src="../images/btn_delete.gif" width="70"
> height="30"></a></td>
> </tr>
> <tr>
> <td colspan="4" bgcolor="#000000"> </td>
> </tr>
> </table>
> <%
> i = i + 1
> RS.MoveNext
> Next
> %>
> <table cellspacing="2" cellpadding="2" width="100%">
> <tr>
> <td align="right">
> 
> <%=ttl%> <%=begin%>
> - <%=tot%> of <%=RS.RecordCount%> Page: <%=navi%> 
> </td>
> </tr>
> </table>
>  
> <%
> RS.Close
> Set RS = nothing
> Conn.close
> Set Conn = Nothing
> %> 
> </td>
> </tr>
> <tr>
> <td valign="top" height="50" width="544" bgcolor="#660066">
> 
> 
> </td>
> </tr>
> </table>
> </div>
>
> </body>
>
> </html>
> ************************************************** '''
> Thank you....
>
> /Goran
>
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system ([url]http://www.grisoft.com[/url]).
> Version: 6.0.524 / Virus Database: 321 - Release Date: 06.10.2003

Ray at · Ray at

Cigarette?

"Bob Barrows" <reb01501@NOyahoo.SPAMcom> wrote

> Aaarghh! Why all the irrelevant html garbage????

Bob Barrows · Bob Barrows

:-)
No, thanks

Sorry Groan.

Bob
Ray at <%=sLocation%> wrote:

> Cigarette?
>
> "Bob Barrows" <reb01501@NOyahoo.SPAMcom> wrote

>> Aaarghh! Why all the irrelevant html garbage????

Please help with IF EOF TRUE

Thread Tools

Display

Please help with IF EOF TRUE

Similar Questions and Discussions

#26232 [Opn->Bgs]: in_array produces true when bool true is in haystack

#26232 [Bgs->Opn]: in_array produces true when bool true is in haystack

#26232 [Ver->Bgs]: in_array produces true when bool true is in haystack

#26232 [Ver]: in_array produces true when bool true is in haystack

#26232 [Opn->Ver]: in_array produces true when bool true is in haystack

Re: Please help with IF EOF TRUE

Re: Please help with IF EOF TRUE

Re: Please help with IF EOF TRUE

Re: Please help with IF EOF TRUE

Posting Permissions