access databse

[johnfli]

Ok, here is something strange.

For a webpage that I have, I used to keep a list of names and email address
in a delimited text file. Then for some reason, my host company did
somethign and now my page can not read teh text file, but it can write to
it. Go figure that one.

ANyway, So I created an access database to replace teh text file and I
imported the data straight from the Text file.

Everythign looks good again.
It reads all the info from teh database perfectly.
select * from email order by fname

I go to add another name and email address via my web page and when I go
back to the page that lists everythign, it does not show the new entry.
Yet, if I open my database in Access, it is there so it saved correctly.
And if my select statement is select * from email where fname = '" John "'
order by fname

then it will display the newest entry
(Which by the way is John Doe)

ANy Idea why the new entry will not display?

[johnfli]

OK, here you go.
I am just including the asp stuff as I don't think you need to see teh HTML
junk, unless you really want to.

This is at the very top of my asp page;

<%@ LANGUAGE=VBSCRI PT %>
<%
pStr = "private, no-cache, must-revalidate"
Response.Expire sAbsolute = #2000-01-01#
Response.AddHea der "pragma", "no-cache"
Response.AddHea der "cache-control", pStr
%>

html stuff in here

then;
<%
Dim strSortOrder
dim objConn
dim rsUsers
dim strUserSQL

strSortOrder=re quest("Sort")
if trim(strSortOrd er) = "" then
strSortOrder = "FName"
end if

Set objConn = Server.CreateOb ject ("ADODB.Connect ion")
Set rsUsers = Server.CreateOb ject ("ADODB.Records et")

strUserSQL = "SELECT Email.ID, Email.Fname, Email.Lname, Email.email,
Email.year, Email.city, Email.state FROM Email order by " & strSortOrder
objConn.Open "DSN=IVHS_Email "
rsUsers.Open strUserSQL, objConn, 3,3

response.write "==== " & rsUsers.Recordc ount & " ====="

strRecordCount = rsUsers.Recordc ount
If not (rsUsers.BOF and rsUsers.EOF) then
rsUsers.movelas t
rsUsers.movefir st

do until rsUsers.eof = true
%>

Then the html stuff that displays the info goes here
then at the end is;
<%

rsUsers.moveNex t
loop
end if

%>


"Aaron Bertrand - MVP" <aa***@TRASHasp faq.com> wrote in message
news:uc******** ******@TK2MSFTN GP11.phx.gbl...

Instead of narrating, can you show the actual code you're talking about?

--
Aaron Bertrand
SQL Server MVP
http://www.aspfaq.com/


"johnfli" <jo**@here.co m> wrote in message
news:OJ******** ******@tk2msftn gp13.phx.gbl...

When I do a response.write for the Record count, it tells me, 111.
When I take out the line that says "On error resume next"
After it displays record 109, I get an error that is complaing about EOF
being true.

If I sort it differently, it will list record 110 and 111, but it will

leave

out what would be the last 2 records that are in the database.

"Aaron Bertrand [MVP]" <aa***@TRASHasp faq.com> wrote in message
news:Oh******** ******@tk2msftn gp13.phx.gbl...

> I even tried this from a differnet computer.
> So it isn't a page refresh issue.

Did you read the whole article I sent?

--
Aaron Bertrand
SQL Server MVP
http://www.aspfaq.com/

[johnfli]

When you have it sorting by first name, it lists all 112 items in order?
"Chris Hohmann" <no****@thankyo u.com> wrote in message
news:up******** ******@TK2MSFTN GP11.phx.gbl...

"johnfli" <jo**@here.co m> wrote in message
news:OJ******** ******@tk2msftn gp13.phx.gbl...

When I do a response.write for the Record count, it tells me, 111.
When I take out the line that says "On error resume next"
After it displays record 109, I get an error that is complaing about

EOF

being true.

If I sort it differently, it will list record 110 and 111, but it will

leave

out what would be the last 2 records that are in the database.

"Aaron Bertrand [MVP]" <aa***@TRASHasp faq.com> wrote in message
news:Oh******** ******@tk2msftn gp13.phx.gbl...

> I even tried this from a differnet computer.
> So it isn't a page refresh issue.

Did you read the whole article I sent?

--
Aaron Bertrand
SQL Server MVP
http://www.aspfaq.com/

Seems to work just fine. Note, record 111 is listed as "Jane Doe".
Similarly, record 110 is listed as "John Doe". As such, they appear in
the middle of the list. Also, please remove record 112. That was me. ;-)

HTH
-Chris Hohmann

[johnfli]

Forgot one thing;
to get the EOF error I used

"for intRecord = 0 to strRecordCount -1"

in place of the "do until rsUsers.eof = true"

Then naturally I had a "next" in place of the "loop"
So in doing that, I would get the error when it hit rsUsers.moveNex t for
record 110
"johnfli" <jo**@here.co m> wrote in message
news:uj******** ******@TK2MSFTN GP11.phx.gbl...

OK, here you go.
I am just including the asp stuff as I don't think you need to see teh HTML junk, unless you really want to.

This is at the very top of my asp page;

<%@ LANGUAGE=VBSCRI PT %>
<%
pStr = "private, no-cache, must-revalidate"
Response.Expire sAbsolute = #2000-01-01#
Response.AddHea der "pragma", "no-cache"
Response.AddHea der "cache-control", pStr
%>

html stuff in here

then;
<%
Dim strSortOrder
dim objConn
dim rsUsers
dim strUserSQL

strSortOrder=re quest("Sort")
if trim(strSortOrd er) = "" then
strSortOrder = "FName"
end if

Set objConn = Server.CreateOb ject ("ADODB.Connect ion")
Set rsUsers = Server.CreateOb ject ("ADODB.Records et")

strUserSQL = "SELECT Email.ID, Email.Fname, Email.Lname, Email.email,
Email.year, Email.city, Email.state FROM Email order by " & strSortOrder
objConn.Open "DSN=IVHS_Email "
rsUsers.Open strUserSQL, objConn, 3,3

response.write "==== " & rsUsers.Recordc ount & " ====="

strRecordCount = rsUsers.Recordc ount
If not (rsUsers.BOF and rsUsers.EOF) then
rsUsers.movelas t
rsUsers.movefir st

do until rsUsers.eof = true
%>

Then the html stuff that displays the info goes here
then at the end is;
<%

rsUsers.moveNex t
loop
end if

%>


"Aaron Bertrand - MVP" <aa***@TRASHasp faq.com> wrote in message
news:uc******** ******@TK2MSFTN GP11.phx.gbl...

Instead of narrating, can you show the actual code you're talking about?

--
Aaron Bertrand
SQL Server MVP
http://www.aspfaq.com/


"johnfli" <jo**@here.co m> wrote in message
news:OJ******** ******@tk2msftn gp13.phx.gbl...

When I do a response.write for the Record count, it tells me, 111.
When I take out the line that says "On error resume next"
After it displays record 109, I get an error that is complaing about EOF being true.

If I sort it differently, it will list record 110 and 111, but it will

leave

out what would be the last 2 records that are in the database.

"Aaron Bertrand [MVP]" <aa***@TRASHasp faq.com> wrote in message
news:Oh******** ******@tk2msftn gp13.phx.gbl...
> > I even tried this from a differnet computer.
> > So it isn't a page refresh issue.
>
> Did you read the whole article I sent?
>
> --
> Aaron Bertrand
> SQL Server MVP
> http://www.aspfaq.com/
>
>

[johnfli]

Sorry all, I found the problem.

It was me.

I thought is was sorting by the ID field, but it was sorting by the First
Name.

So as a result, record 109's first name start with a 'V' thus meaning that
it will always be last.

I thank you for your assistance with me. Sorry it turned out to be an
ignorance issue.

"johnfli" <jo**@here.co m> wrote in message
news:us******** ******@tk2msftn gp13.phx.gbl...

Forgot one thing;
to get the EOF error I used

"for intRecord = 0 to strRecordCount -1"

in place of the "do until rsUsers.eof = true"

Then naturally I had a "next" in place of the "loop"
So in doing that, I would get the error when it hit rsUsers.moveNex t for
record 110
"johnfli" <jo**@here.co m> wrote in message
news:uj******** ******@TK2MSFTN GP11.phx.gbl...

OK, here you go.
I am just including the asp stuff as I don't think you need to see teh

HTML

junk, unless you really want to.

This is at the very top of my asp page;

<%@ LANGUAGE=VBSCRI PT %>
<%
pStr = "private, no-cache, must-revalidate"
Response.Expire sAbsolute = #2000-01-01#
Response.AddHea der "pragma", "no-cache"
Response.AddHea der "cache-control", pStr
%>

html stuff in here

then;
<%
Dim strSortOrder
dim objConn
dim rsUsers
dim strUserSQL

strSortOrder=re quest("Sort")
if trim(strSortOrd er) = "" then
strSortOrder = "FName"
end if

Set objConn = Server.CreateOb ject ("ADODB.Connect ion")
Set rsUsers = Server.CreateOb ject ("ADODB.Records et")

strUserSQL = "SELECT Email.ID, Email.Fname, Email.Lname, Email.email,
Email.year, Email.city, Email.state FROM Email order by " & strSortOrder
objConn.Open "DSN=IVHS_Email "
rsUsers.Open strUserSQL, objConn, 3,3

response.write "==== " & rsUsers.Recordc ount & " ====="

strRecordCount = rsUsers.Recordc ount
If not (rsUsers.BOF and rsUsers.EOF) then
rsUsers.movelas t
rsUsers.movefir st

do until rsUsers.eof = true
%>

Then the html stuff that displays the info goes here
then at the end is;
<%

rsUsers.moveNex t
loop
end if

%>


"Aaron Bertrand - MVP" <aa***@TRASHasp faq.com> wrote in message
news:uc******** ******@TK2MSFTN GP11.phx.gbl...

Instead of narrating, can you show the actual code you're talking about?
--
Aaron Bertrand
SQL Server MVP
http://www.aspfaq.com/


"johnfli" <jo**@here.co m> wrote in message
news:OJ******** ******@tk2msftn gp13.phx.gbl...
> When I do a response.write for the Record count, it tells me, 111.
> When I take out the line that says "On error resume next"
> After it displays record 109, I get an error that is complaing about EOF > being true.
>
> If I sort it differently, it will list record 110 and 111, but it will leave
> out what would be the last 2 records that are in the database.
>
>
>
>
>
> "Aaron Bertrand [MVP]" <aa***@TRASHasp faq.com> wrote in message
> news:Oh******** ******@tk2msftn gp13.phx.gbl...
> > > I even tried this from a differnet computer.
> > > So it isn't a page refresh issue.
> >
> > Did you read the whole article I sent?
> >
> > --
> > Aaron Bertrand
> > SQL Server MVP
> > http://www.aspfaq.com/
> >
> >
>
>