What am I doing wrong?

[Aaron Bertrand - MVP]

> rs.Source="SELECT id From User Where upper

> (cLogInID)='"& vUserID &"'"
> rs.Open, DataConn

I asked this before...

Try

sql = "SELECT id FROM user WHERE UPPER(cLoginID) = '" & vUserID & "'"
set rs = DataConn.Execute(sql)

[Aaron Bertrand - MVP]

> Yes you told me to do that and I asked if what I was doing

> would do. But you never reply. I don't want to go and
> rewrite 604 web pages only to find out that is not the
> problem. I hope you understand.

Are you absolutely serious?

You came here for help, right?

I'm pointing out the first error I saw. You have a syntax error on that
page. Fix that, in *ONE* page, not *604*, and if your page still doesn't
work, come back here and tell us *what that means*, e.g. an actual error
message and the line of code that causes it, rather than 18 paragraphs of
narrative and every single line of your ASP page. And BTW, if you have 604
pages in your ASP application, you're doing something seriously wrong.

I'm not going to go through the 604 lines of code in your message and try
and find areas of improvement. Sorry, I don't get paid enough for that.
Now, if you'd like to hire me as a consultant, that'd be a different story.
In the meantime, don't look a gift horse in the mouth.

I hope you understand.

--
[url]http://www.aspfaq.com/[/url]

[Ray at]

Endless loop, perhaps? Have you tried debugging? Perhaps something like a
response.buffer = false and a response.write AVariableThatCountsOrSomething
in your loop?

Ray at work

"Croney" <n@n.com> wrote in message
news:09eb01c34490$788e0aa0$a501280a@phx.gbl...

> With reference to the error I get. There is none. There is
> no error displayed. Jest the last page is displayed and
> the progress-bar takes forever to move across, but nothing
> happens.
>

[Aaron Bertrand [MVP]]

> Please note 604 are web pages and not lines in a page.

Thanks, I know that. I was referring to the huge blob of code you deposited
in your messages...

> no error displayed. Jest the last page is displayed and
> the progress-bar takes forever to move across, but nothing
> happens.

Sounds like an infinite loop. Or maybe usage of Scripting.FileSystemObject
in conjunction with, for whatever reason, having *client*-intended
Anti-virus software like Norton/McAfee.

> I would attempt to use "find and replace" to fix the code > in all the

pages.

Then I don't understand what you are complaining about.

[Croney]

>-----Original Message-----

>> Please note 604 are web pages and not lines in a page.

>
>Thanks, I know that. I was referring to the huge blob of

code you deposited

>in your messages...
>

Sorry. As mentioned, It was only to help.

>> no error displayed. Jest the last page is displayed and
>> the progress-bar takes forever to move across, but

nothing

>> happens.

>
>Sounds like an infinite loop.

If it was a loop then the page should never work. But it
work for a day (8am-4:30pm) then the hole site stop (stop
between 3-4pm).

>Or maybe usage of Scripting.FileSystemObject
>in conjunction with, for whatever reason, having *client*-

intended

>Anti-virus software like Norton/McAfee.
>

Sorry I dont understand.:( But there is no anti-virus
runing on that server. It is use only for the Intranet and
is protected by other servers that handel firewall and
protection. There is McAfee runing on the client-side.

>> I would attempt to use "find and replace" to fix the

code > in all the

>pages.
>
>Then I don't understand what you are complaining about.
>
>
>.
>

[SPA]

A few things that popped up when i went through ur code:

1) You use "vUserID" to store the login User Id at first and then overwrite
it with the UserIDnumber from the User table. Are you sure this is what you
want as the queries later are based on this UserIdnumber?

2) The loop that checks for EOF:

' CREATE ARRAY
do until rs.EOF
c=c+1
Client=Client &""& rs("cPolicy")&""& rs("cName")
&""& rs("cOldPolicy")
rs.MoveNext
Loop

should be re-written using WHILE ... WEND. If you use DO UNTIL .. LOOP, the
loop is executed the first time even if the Recordset is empty which
shouldn't be the case.

3) The next loop looks a bit complicated too. Would be better to use WHILE
... WEND unless you want the whole thing to be executed atleast once before
the checking is done. Also, just before the loop ends, you have opened the
recordset

rs.Open,dataConn
CancelReq=CancelReq+1

Loop

But you havent closed the same before the loop starts again. Actually this
should produce an error when u try to open rs again and I am surprised you
are not getting an error that recordset is already open. Hope you are not
using "On Error Resume Next"





"Croney" <n@n.com> wrote in message
news:08f301c3447f$be9e3300$a301280a@phx.gbl...

> I have posted this question already but no one has taken
> me to the end and I really need to resolve this.
>
> I am using Windows2000 server, IIS5 and ASP to produce and
> Intranet for the employees with applications to help with
> their day-to-day work. I have recently redesign to site
> and move away from the global.asa and have also switch
> from mdb to dbf to link back into our front office
> program.
>
> I am now encountering a problem where users are unable to
> view any pages that access the database. (ASP pages) This
> dose not affects html or ASP pages that do not connect to
> the database.
>
> This problem occurs after one day. Restarting the IIS will
> resolve the problem for a time then the only way it to
> restart the server.
>
> I have notice that by removing this page it seems to stop
> the problem. But I need to know what the problem is so
> that this error would not occur again.
>
> I was advise to use IISState but I could not see any thing
> wrong and ask for help. Got none! I was also told to use
> AdPlus, same problem with the reports. No help.
>
>
> Could you advise if I am doing anything wrong?
>
>
>
>
> This is my connection page. bdConnect.asp
>
> <%
> Set DataConn = Server.CreateObject("ADODB.Connection")
> DataConn.provider="MSDASQL.1"
> DataConn.Open "Driver={Microsoft Visual FoxPro Driver};" &
> _
> "SourceType=DBC;" & _
> "SourceDB=c:\inetpub\wwwroot\mydatabase\mydatabase .
> dbc;" & _
> "Exclusive=No; Null=No"
>
> %>
>
> This is one of the pages that I think is causeing the
> problem.
>
> <!--#include file="bdConnect.asp" --> 'Top of the page
>
> Note: This script is in the body in a table
>
> <TD>
> <%
> set rs = server.CreateObject("ADODB.RecordSet")
>
> ' GET USER ID
> vUserID = Replace(Request.ServerVariables
> ("logon_USER"),"UNITED\","")
> vUserID = ucase(vUserID)
>
> ' GET USER ID NUMBER FROM USER
> TABLE
> rs.Source="SELECT id From User Where upper
> (cLogInID)='"& vUserID &"'"
> rs.Open, DataConn
> vUserID=rs("id")
> rs.Close
>
> ' GET THE LAST RECORD ID NUMBER
> rs.source="SELECT max(id) as MaxID From
> filerequests"
> rs.Open, DataConn
> maxid=rs("maxid")
> rs.Close
>
> ' GET INFORMATIO FOR THE USER OUT OF THE
> FILEREQUEST TABLE AND ADD EACH TO FILEREQUEST
> rs.Source="SELECT FileRequestBulk.id,
> FileRequestBulk.cPolicy, PolicyData.cName,
> PolicyData.cOldPolicy FROM FileRequestBulk LEFT JOIN
> PolicyData on FileRequestBulk.cPolicy=PolicyData.cPolicy
> Where iUser="& vUserID
> rs.open, DataConn
> C=0
>
> ' CREATE ARRAY
> do until rs.EOF
> c=c+1
> Client=Client &""& rs("cPolicy")&""& rs("cName")
> &""& rs("cOldPolicy")
> rs.MoveNext
> Loop
>
> rs.Close
>
> 'DO LOOP TO ADD REQUEST TO FILEREQUEST
> TABLE (ONLY POLICIES THAT HAVE NOT BEEN ALREADY REQUESTED)
> I=0
> CancelReq=0
> do until I=C or I>25
> I=I+1
> maxid=maxid+1 ' Next record number
>
> ' Break down array
> P=left(Client,12) ' Policy number
> N=mid(Client,13,16) ' Name of client
> OP=mid(Client,29, 12) ' Old Policy number
>
> Client=mid(Client,41) ' Remove this policy data
> from the array
>
> ' CHECK TO SEE IF THE POLICY IS
> ALERADY OUT AND ADD POLICY IF NOT
> rs.source="SELECT asc(dtoc(tReturnDat)) as RTD,
> id, cUserID, tRequestDa, tTimeStamp, cClient, cPolClmNo,
> CPolOld, iPriority From FileRequests Where cpolclmno ='"&
> P &"' and asc(dtoc(tFileDate))=32"
> rs.Open, DataConn,2,3
> if rs.EOF then
> 'ADD REQUEST TO FILEREQUEST
> rs.AddNew
> rs("id")=maxid
> rs("cUserID")=vUserID
> rs("tRequestDa")=now()
> rs("tTimeStamp")=now()
> rs("cClient")=N
> rs("cPolClmNo")=P
> rs("cPolOld")=OP
> rs("iPriority")="0"
> rs.Update
> rs.Close
>
> 'INSERT INTO
> FILEREQUESTCHECKER FOR FILING ROOM
> rs.Source="INSERT INTO
> FileRequestChecker (cPolicy, dRequested, id) VALUES ('"& P
> &"', {"& date() &"}, "& maxid &")"
> rs.Open, DataConn
>
> 'DELETE DATA OUT
> OF FILEREQUESTBULK
> Set rs = nothing
> set rs = server.CreateObject
> ("ADODB.RecordSet")
> rs.Source="DELETE from
> FileRequestBulk Where cPolicy='"& P &"' and iUser="&
> vUserID
> rs.Open,dataConn
> else
> RTD=rs("RTD")
> ID=rs("id")
> rs.Close
> ' File was already
> in use
> rs.Source="UPDATE FileRequestBulk
> Set iReason= "& RTD &" Where id="& id
> rs.Open,dataConn
> CancelReq=CancelReq+1
>
> end if
>
> Loop
>
> Set rs = nothing
> DataConn.Close
> set DataConn=nothing
>
> if CancelReq >0 then
> response.write "Some of the policies that you have
> requested have been canceled and remain in your bulk
> folder as they are already in use. You can try requesting
> the policies again by the usual method to see if they have
> been requested by another user and have been placed in the
> filing tray.<p>Total files:"& CancelReq
> Response.write "<P><Div Align='Center'><a
> href='viewBulk.asp'><IMG src='../Images/View.png'
> border=0></a></Div>"
> else
> Response.redirect "../view.asp"
> end if%>
> </TD>
>
>

[Bob Barrows]

Croney wrote:
<snip>

> ' GET USER ID NUMBER FROM USER
> TABLE
> rs.Source="SELECT id From User Where upper
> (cLogInID)='"& vUserID &"'"
> rs.Open, DataConn

You should be telling ADO what command type you are using. In this case,
it's a string containing a sql statement, so you should tell it in the 5th
argument of the Open statement (I disagree with Aaron on this one: the Open
statement is equivalent to Execute when the default cursor type and location
are used):

Const adCmdText = &H0001
rs.Open ,DataConn,,,adCmdText

> vUserID=rs("id")
> rs.Close
>
> ' GET THE LAST RECORD ID NUMBER
> rs.source="SELECT max(id) as MaxID From
> filerequests"

You're aware that this can fail in multi-user environments ...

<snip>

>
> ' GET INFORMATIO FOR THE USER OUT OF THE
> FILEREQUEST TABLE AND ADD EACH TO FILEREQUEST
> rs.Source="SELECT FileRequestBulk.id,
> FileRequestBulk.cPolicy, PolicyData.cName,
> PolicyData.cOldPolicy FROM FileRequestBulk LEFT JOIN
> PolicyData on FileRequestBulk.cPolicy=PolicyData.cPolicy
> Where iUser="& vUserID
> rs.open, DataConn
> C=0
>
> ' CREATE ARRAY

Why not use GetRows instead of the loop?

<snip>

> 'DO LOOP TO ADD REQUEST TO FILEREQUEST
> TABLE (ONLY POLICIES THAT HAVE NOT BEEN ALREADY REQUESTED)

<snip>

>
> ' CHECK TO SEE IF THE POLICY IS
> ALERADY OUT AND ADD POLICY IF NOT

You should use an Insert statement for this: updatable cursors are
expensive.

> rs.source="SELECT asc(dtoc(tReturnDat)) as RTD,
> id, cUserID, tRequestDa, tTimeStamp, cClient, cPolClmNo,
> CPolOld, iPriority From FileRequests Where cpolclmno ='"&
> P &"' and asc(dtoc(tFileDate))=32"
> rs.Open, DataConn,2,3
> if rs.EOF then
> 'ADD REQUEST TO FILEREQUEST
> rs.AddNew
>

<snip>

> 'INSERT INTO
> FILEREQUESTCHECKER FOR FILING ROOM
> rs.Source="INSERT INTO
> FileRequestChecker (cPolicy, dRequested, id) VALUES ('"& P
> &"', {"& date() &"}, "& maxid &")"
> rs.Open, DataConn

You should NOT open a recordset when running an action query. Use the
connection's Execute method for this. And tell the implicit Command object
that you are not getting any records back:

sSQL = rs.Source="INSERT INTO FileRequestChecker (cPolicy, dRequested, id)
VALUES ('"& P &"', {"& date() &"}, "& maxid &")"
Const adExecuteNoRecords = &H00000080
DataConn. Execute sSQL,,adCmdText + adExecuteNoRecords

>
> 'DELETE DATA OUT
> OF FILEREQUESTBULK
> Set rs = nothing
> set rs = server.CreateObject
> ("ADODB.RecordSet")
> rs.Source="DELETE from
> FileRequestBulk Where cPolicy='"& P &"' and iUser="&
> vUserID
> rs.Open,dataConn

See above

> else
> RTD=rs("RTD")
> ID=rs("id")
> rs.Close
> ' File was already
> in use
> rs.Source="UPDATE FileRequestBulk
> Set iReason= "& RTD &" Where id="& id
> rs.Open,dataConn

see above

> CancelReq=CancelReq+1
>
> end if
>
> Loop
>
> Set rs = nothing
> DataConn.Close
> set DataConn=nothing
>

This is good. I could not find any Redirect statements before these lines,
so you do appear to be cleaning up after yourself. You should check your
other pages to make sure that your cleanup code is executing (i.e., no
redirects occur before the cleanup).

Failure to close and destroy your ADO objects is one of the leading causes
of the type of errors you are experiencing.

HTH,
Bob Barrows

[Croney]

I would jest like say thanks Bob Barrows

[Mark Hyde]

Greetings,
I hope I will get some assistance here.

I have a new Epson 2200. I think I made a good descision, but I must not
understand all the variables with my computer, a Dell Inspiron 8100 Laptop,
my scanner, HP S20, Photoshop Elements 2.0 and the printer.

I am scanning slides and saving them as TIFs. My other choice that I am
aware of is jpeg.
I continue to get prints that don't 'look right'. My prints are too dark,
compared to the screen and compared to the slides on the light table, or I
get color casts that are red or too blue.

I have tried different settings, but I think I need help understanding what
co ntrols I should really be using and what settings I should use.

Thanks,
Mark

[ralford]

There is an art/skill to get the slide/screen/print to look similar -
probably never look the same. Likely the major problem is calibrating the
screen, and lcd screens are not knows or color fidelity.

tiff/jpeg is irrelevant in this topic - unless the jpg compression is
ridicules. One thing you didn't mention is the processing software you are
using?

rma

"Mark Hyde" <mrhyde@dimensional.com> wrote in message
news:3f10b8a2_3@omega.dimensional.com...

> Greetings,
> I hope I will get some assistance here.
>
> I have a new Epson 2200. I think I made a good descision, but I must not
> understand all the variables with my computer, a Dell Inspiron 8100

Laptop,

> my scanner, HP S20, Photoshop Elements 2.0 and the printer.
>
> I am scanning slides and saving them as TIFs. My other choice that I am
> aware of is jpeg.
> I continue to get prints that don't 'look right'. My prints are too dark,
> compared to the screen and compared to the slides on the light table, or I
> get color casts that are red or too blue.
>
> I have tried different settings, but I think I need help understanding

what

> co ntrols I should really be using and what settings I should use.
>
> Thanks,
> Mark
>
>

[Todd Walker]

In article <3f10b8a2_3@omega.dimensional.com>, [email]mrhyde@dimensional.com[/email]
says...

> Greetings,
> I hope I will get some assistance here.
>
> I have a new Epson 2200. I think I made a good descision, but I must not
> understand all the variables with my computer, a Dell Inspiron 8100 Laptop,
> my scanner, HP S20, Photoshop Elements 2.0 and the printer.
>
> I am scanning slides and saving them as TIFs. My other choice that I am
> aware of is jpeg.
> I continue to get prints that don't 'look right'. My prints are too dark,
> compared to the screen and compared to the slides on the light table, or I
> get color casts that are red or too blue.
>
> I have tried different settings, but I think I need help understanding what
> co ntrols I should really be using and what settings I should use.
>
> Thanks,
> Mark

You are going to have a very hard time making the necessary adjustments
since you are using a laptop. LCD screens are not the best for photo
editing as they don't have the dynamic range of a CRT and they don't
display colors as accurately. If you have a CRT that you can hook up to
it, your job will be much easier.

--
________________________________
Todd Walker
[url]http://twalker.d2g.com[/url]
Olympus E20
Canon G2
My Digital Photography Weblog:
[url]http://twalker.d2g.com/dpblog.htm[/url]
_________________________________

[Paul Worden]

This is a common problem. I have the Epson.

Try this:

Open your image and create a Curves layer adjustment. (Layers Palette, click
on half white/black circle, then choose a control.)

If the print output is too dark, grab the top of the curve and drag it to
the left. For the first test, just try an arbitary amount and note the
number in the 'INPUT' box. Print the image. Keep adjusting the curve and
re-printing until you're happy with the print. You can create different
setting squares on your print if you create a selection area first using the
Marquee tool.

You can record an 'Action' to do this automatically once you know the best
setting.
I have the opposite problem - my prints are always lighter than the monitor
and I need to darken them by between 25 and 40 units.

You can also use the Brightness/Contrast control, but I've found the Curves
quickest and using curves doesn't make the whites 'grey.'

With regard to colour - do the same test using the Color Balance setting.
You only need to make one print starting with a uniform grey and selecting
squares, then adjusting them. You could also use
Image/Adjustments/Variations and pick a variation with the opposite
(complimentary) colour to the cast on your prints.

You can also buy a 'Color Spyder' which measures the screen colour and
assists in calibration - good but expensive.

Paul Worden
remove NOSPAM from email address to reply

[HRosita]

>Enough [email]enough@idontcare.com[/email] wrote:

>Your problem is using a Windows POS to do color management. BUY a Mac.
>They just work!

We have heard your opinion that Macs are better. As a matter of fact we have
heard it over, and over, and over.

Now either help the poster, or don't post anything.
Rosita

[Andrew McDonald]

Enough wrote:

> Your problem is using a Windows POS to do color management. BUY a Mac.
> They just work!

I am not having any problems on my PC. So your solution is not really
the solution, is it?

[Todd Walker]

In article <INeQa.45152$C83.3583259@newsread1.prod.itd.earthl ink.net>,
[email]andy.h@tes.spam[/email] says...

> Enough wrote:

> > Your problem is using a Windows POS to do color management. BUY a Mac.
> > They just work!

>
> I am not having any problems on my PC. So your solution is not really
> the solution, is it?

Andrew,

Just add Mr. Enough to your killfile now. He is one of the group ogres
who does nothing here but post stupid, insulting messages and tell
people how much better Macs are for everything. Apparently he is
insecure with his decision to purchase an Apple and must attempt to
justify it every chance he gets by telling others how much Windows
sucks.

--
________________________________
Todd Walker
[url]http://twalker.d2g.com[/url]
Olympus E20
Canon G2
My Digital Photography Weblog:
[url]http://twalker.d2g.com/dpblog.htm[/url]
_________________________________

[Andrew McDonald]

Todd Walker wrote:

> Just add Mr. Enough to your killfile now. He is one of the group ogres
> who does nothing here but post stupid, insulting messages and tell
> people how much better Macs are for everything. Apparently he is
> insecure with his decision to purchase an Apple and must attempt to
> justify it every chance he gets by telling others how much Windows
> sucks.

Thanks.

[John Houghton]

"Mark Hyde" <mrhyde@dimensional.com> wrote in message
news:3f10b8a2_3@omega.dimensional.com...

> I have a new Epson 2200. I think I made a good descision, but I must not
> understand all the variables with my computer, a Dell Inspiron 8100

Laptop,

> my scanner, HP S20, Photoshop Elements 2.0 and the printer.

I haven't any experience of using an LCD panel for photo editing, so I can
only hope that you can improve matters by using colour management.

The first thing you should do is run Adobe Gamma from the control panel and
calibrate the screen to a gamma of 2.2.

Then you should get hold of a standard test image such as the PhotoDisc
target from [url]http://www.inkjetart.com/custom/[/url] (note that the image is in
AdobeRGB colour space).

Print the test image to the printer using Print with Preview in Photoshop.
Select the appropriate paper profile in the print space profile box. (You
may have to click on Show more options and select Color Management). Also
click the Document button, against which will be Document: Adobe RGB (1998).
In the Epson printer driver properties, select the appropriate paper type
and in the custom/advanced settings, select No color adjustment.

It's possible that your paper profiles are not yet installed. I believe
they get installed with the PIM software.

I hope that very brief runthrough will be enough to get you started.

John

[George Kerby]

On 7/13/03 10:39 AM, in article
[email]MPG.197b391b4fbae51598a33a@news-server.jam.rr.com[/email], "Todd Walker"
<twalker294@hotmail.com> wrote:

> In article <INeQa.45152$C83.3583259@newsread1.prod.itd.earthl ink.net>,
> [email]andy.h@tes.spam[/email] says...

>> Enough wrote:

>>> Your problem is using a Windows POS to do color management. BUY a Mac.
>>> They just work!

>>
>> I am not having any problems on my PC. So your solution is not really
>> the solution, is it?

>
> Andrew,
>
> Just add Mr. Enough to your killfile now. He is one of the group ogres
> who does nothing here but post stupid, insulting messages and tell
> people how much better Macs are for everything. Apparently he is
> insecure with his decision to purchase an Apple and must attempt to
> justify it every chance he gets by telling others how much Windows
> sucks.

He's real popular over at comp.sys.mac.misc as well!
Don't feel left out - he insults and trolls in there, too.
God knows how many other places he confronts people...


__________________________________________________ ____________________
Posted Via Uncensored-News.Com - Still Only $9.95 - [url]http://www.uncensored-news.com[/url]
<><><><><><><> The Worlds Uncensored News Source <><><><><><><><>

[Wayne J]

"George Kerby" <ghost_topper@hotmail.com> wrote in message > He's real
popular over at comp.sys.mac.misc as well!

> Don't feel left out - he insults and trolls in there, too.
> God knows how many other places he confronts people...
>

Everywhere but face to face I am sure. There he is no doubt too insecure to
complain if a waiter pissed in his food.

Wayne

[Sharkmenace]

I am reading through the documentation and playing with the code as I go. I try
this code with a simple .w3d sprite imported from Carrara (it's not max but
it's pretty good). The world has two cubes and one sphere (1 cam 1 light).

on enterframe
trace (sprite(1).member.model.count)
end

do I have this wrong? am I high? should I stick to Flash? don't you hate it
when you follow instructions and sh*t won't work? :)