navigation
a webmaster learning community
     Home    Register     Search      Help      Login    
Sponsors

Shopping Cart Software
Ecommerce software integrated into Frontpage, Dreamweaver and Golive templates. No monthly fees and available in ASP and PHP versions.

Website Templates
We also have a wide selection of Dreamweaver, Expression Web and Frontpage templates as well as webmaster tools and CSS layouts.

Frontpage website templates
Creative Website Templates for FrontPage, Dreamweaver, Flash, SwishMax

Search Forums
 

Advanced search
Recent Posts

 Todays Posts
 Most Active posts
 Posts since last visit
 My Recent Posts
 Mark posts read

Microsoft MVP

 

Using global date functions

 
View related threads: (in this forum | in all forums)

Logged in as: Guest
Users viewing this topic: none
Printable Version 

All Forums >> Web Development >> ASP and Database >> Using global date functions
Page: [1] 2   next >   >>
 
tomfuller

 

Posts: 43
From: Portland OR USA
Status: offline

 
Using global date functions - 12/17/2002 15:11:58   
I need to have my FP asp page pick from a database based on a certain number of days in the past.

In particular I want the asp query to look at my db (already on the Spooky Diet) and pick the last 10 hits from a date field - like 10 weeks into the past, then display.

How do I access TODAY in order to do the math for this query?

Thanks!

_____________________________

"You shall know the truth and the truth shall set you free." JC
rdouglass

 

Posts: 9265
From: Biddeford, ME USA
Status: offline

 
RE: Using global date functions - 12/17/2002 15:15:29   
<%=Date()%>

EDIT: an example:

fp_sQry=" SELECT * FROM Messages WHERE (ExpDate = #" & DateAdd(" d" ,-10,Date()) & " #)"

< Message edited by rdouglass -- 12/17/2002 3:23:47 PM >

(in reply to tomfuller)
tomfuller

 

Posts: 43
From: Portland OR USA
Status: offline

 
RE: Using global date functions - 12/17/2002 18:54:43   
Thank you.

I guess what I need now is a BETWEEN function.

Something like:

fp_sQry=" SELECT * FROM MAIN WHERE (MessageDate BETWEEN #" & DateAdd(" d" ,-10,Date()) AND #Date#" ) ORDER BY MessageDate DESC"

I' m not sure if the syntax is good.

I want to capture all dates 30 days in the past to the present day.


(in reply to tomfuller)
ScribeVision

 

Posts: 274
From: None
Status: offline

 
RE: Using global date functions - 12/17/2002 22:39:09   
Can something similar be done to display records added in the past 2 hours instead of days?

(in reply to tomfuller)
rdouglass

 

Posts: 9265
From: Biddeford, ME USA
Status: offline

 
RE: Using global date functions - 12/18/2002 8:40:38   
For past 30 days:

fp_sQry=" SELECT * FROM MAIN WHERE (MessageDate BETWEEN #" & DateAdd(" d" ,-30,Date()) & " # AND #" & Date() & " #) ORDER BY MessageDate DESC"

For past 2 hours:

fp_sQry=" SELECT * FROM MAIN WHERE (MessageDate BETWEEN #" & DateAdd(" h" ,-2,Now()) & " # AND #" & Now() & " #) ORDER BY MessageDate DESC"

The key is in the DateAdd syntax. Here is the MS reference for DateAdd...

< Message edited by rdouglass -- 12/18/2002 8:41:01 AM >

(in reply to tomfuller)
tomfuller

 

Posts: 43
From: Portland OR USA
Status: offline

 
RE: Using global date functions - 12/18/2002 11:17:10   
Fantastic!!! It works. Thanks also for the link to the MS reference - I will use this heavily now that I know its there.

You' ve been a tremendous help in making my site more functional.

Just for grins - check it out at:

www.livingwatersweb.com/study/studysearch.asp

Tom

(in reply to tomfuller)
ScribeVision

 

Posts: 274
From: None
Status: offline

 
RE: Using global date functions - 12/18/2002 11:58:24   
Hi,

Seems to work. Thanks! Can you use fractions of time as well? For example if you wanted records displayed in last 30 minutes.



< Message edited by ScribeVision -- 12/18/2002 12:20:19 PM >

(in reply to tomfuller)
rdouglass

 

Posts: 9265
From: Biddeford, ME USA
Status: offline

 
RE: Using global date functions - 12/18/2002 13:06:50   
ScribeVision,

Yes you can do 30 minutes. The item you' re adding (or subtracting in this case) is defined by the first parameter in DateAdd (see reference above). That one would be:

fp_sQry=" SELECT * FROM MAIN WHERE (MessageDate BETWEEN #" & DateAdd(" n" ,-30,Now()) & " # AND #" & Now() & " #) ORDER BY MessageDate DESC"

Hope it helps...

(in reply to tomfuller)
rdouglass

 

Posts: 9265
From: Biddeford, ME USA
Status: offline

 
RE: Using global date functions - 12/18/2002 13:08:48   
tomfuller,

Nice site; great content!

(in reply to tomfuller)
ScribeVision

 

Posts: 274
From: None
Status: offline

 
RE: Using global date functions - 12/19/2002 11:09:41   
This date function has been VERY helpful! It has gotten me very close to solving a big issue with my National Guard page. However, I need some help streamlining what I' m trying to do.

Here goes:

The site currently has over 50 reports that users submit by filling in a form and submitting. The form adds the data to a separate table in the database. Each report has it' s own table.

I have a table containing just the report titles and file names. A link to a DRW page displays all the reports as links to the actual individual reports. That way, every time I create a new report (form, table, drw) I simply add a record to the Reports table and the report listing is updated.

HOWEVER ...

Users want to be able to determine all reports that have been submitted in a specific time fram - the past hour.

So what I did was to create a page with a static table listing all the current reports and in the column next to the report title, I added the following:

<!--#include file=" ../_fpclass/fpdblib.inc" -->
<%
fp_sQry=" SELECT * FROM ACE_INTSUMS WHERE (timestamp BETWEEN #" & DateAdd(" n" ,-60,Now()) & " # AND #" & Now() & " #) ORDER BY timestamp DESC"
fp_sDefault=" "
fp_sNoRecords=" No reports submitted in past hour ..."
fp_sDataConn=" ScribeVision"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=" "
fp_sMenuValue=" "
fp_iDisplayCols=2
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%><font face=" Verdana" size=" 1" > </font> </font>
<!--#include file=" ../_fpclass/fpdbrgn1.inc" -->

<font size=" 1" face=" Verdana" >REC #: <%=FP_FieldVal(fp_rs," ID" )%> SUBMITTED AT: <%=FP_FieldVal(fp_rs," Timestamp" )%>
<!--#include file=" ../_fpclass/fpdbrgn2.inc" -->
</font>


The problem is, with 50 reports I have to cut and paste the code 50 times and rename the table in the " select from" line.

Is there someway to create a DRW that would list all of the reports in the Reports table AND automatically insert the code to display only the ID (as a link) for each report added in the past hour?

The resulting DRW results would then look something like:

REPORT HOURLY RESULTS
============================
Report 1 None in last hour
Report 2 10,11
Report 3 20, 21, 22, 23
Report 4 None in last hour

etc.

Any suggestions or examples? I can' t show you the actual site because it' s on an Intranet.

Thanks!

< Message edited by ScribeVision -- 12/19/2002 11:12:48 AM >

(in reply to tomfuller)
rdouglass

 

Posts: 9265
From: Biddeford, ME USA
Status: offline

 
RE: Using global date functions - 12/19/2002 11:54:09   
I' m not exactly sure I' m on the same wavelenght as you, but I suspect you may be able to use 1 DRW for each report and pass the tablenames thru a loop. Something like:

<% DIM myTableNames, myArray
myTableNames = " ACE_INTSUMS, table2Name, table3Name"
myArray = split(myTableNames," ," )

FOR i = lBound(myArray) to uBound(myArray)%>


<!--#include file=" ../_fpclass/fpdblib.inc" -->
<%
fp_sQry=" SELECT * FROM " & myArray(i) & " WHERE (timestamp BETWEEN #" & DateAdd(" n" ,-60,Now()) & " # AND #" & Now() & " #) ORDER BY timestamp DESC"
fp_sDefault=" "
fp_sNoRecords=" No reports submitted in past hour ..."
fp_sDataConn=" ScribeVision"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=" "
fp_sMenuValue=" "
fp_iDisplayCols=2
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%><font face=" Verdana" size=" 1" > </font> </font>
<!--#include file=" ../_fpclass/fpdbrgn1.inc" -->

<font size=" 1" face=" Verdana" >REC #: <%=FP_FieldVal(fp_rs," ID" )%> SUBMITTED AT: <%=FP_FieldVal(fp_rs," Timestamp" )%>
<!--#include file=" ../_fpclass/fpdbrgn2.inc" -->
</font>

<%NEXT%>

or something like that... Does that make sense and/or am I looking at the problem correctly??

(in reply to tomfuller)
ScribeVision

 

Posts: 274
From: None
Status: offline

 
RE: Using global date functions - 12/19/2002 12:06:03   
Hmmm ...

I' m certainly willing to give that a try. Never done the looping thing before, but now' s a good time to give it a shot.

Thanks for the suggestion. I' ll let you know if I get it to work.

Rodney

(in reply to tomfuller)
ScribeVision

 

Posts: 274
From: None
Status: offline

 
RE: Using global date functions - 12/19/2002 12:16:05   
Hi,

I tried the following:

<html>

<head>
<meta name=" GENERATOR" content=" Microsoft FrontPage 5.0" >
<meta name=" ProgId" content=" FrontPage.Editor.Document" >
<meta http-equiv=" Content-Type" content=" text/html; charset=windows-1252" >
<title>REC</title>
</head>

<body>
<% DIM myTableNames, myArray
myTableNames = " ACE_INTSUMS,RFI,CDM"
myArray = split(myTableNames," ," )

FOR i = lBound(myArray) to uBound(myArray)%>

<!--#include file=" ../_fpclass/fpdblib.inc" -->
<%
fp_sQry=" SELECT * FROM " & myArray(i) & " WHERE (timestamp BETWEEN #" & DateAdd(" n" ,-60,Now()) & " # AND #" & Now() & " #) ORDER BY timestamp DESC"
fp_sDefault=" "
fp_sNoRecords=" No reports submitted in past hour ..."
fp_sDataConn=" ScribeVision"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=" "
fp_sMenuValue=" "
fp_iDisplayCols=2
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%><font face=" Verdana" size=" 1" > </font> </font>
<!--#include file=" ../_fpclass/fpdbrgn1.inc" -->

<font size=" 1" face=" Verdana" >REC #: <%=FP_FieldVal(fp_rs," ID" )%> SUBMITTED AT: <%=FP_FieldVal(fp_rs," Timestamp" )%>
<!--#include file=" ../_fpclass/fpdbrgn2.inc" -->
</font>

<%NEXT%>


</body></html>


And get a:

The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.

--------------------------------------------------------------------------------

Please try the following:

Click the Refresh button, or try again later.

Open the www.agd.state.tx.us home page, and then look for links to the information you want.
HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

--------------------------------------------------------------------------------

Technical Information (for support personnel)

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/49ad/GARRISON/_fpclass/fpdblib.inc, line 3


(in reply to tomfuller)
rdouglass

 

Posts: 9265
From: Biddeford, ME USA
Status: offline

 
RE: Using global date functions - 12/19/2002 13:57:29   
I' m sorry ' bout that - I thought we could get away with it but I guess not; looping the DRW that is. However, I' ve put together an ASP script that should do the same thing. I' ve tested it on one of my testing DB' s and it seems to work. Try this code on a page, you may be able to work with it:

<html>
<head>
<meta name=" GENERATOR" content=" Microsoft FrontPage 4.0" >
<title>REC</title>
</head>

<body>

<% DIM myTableNames, myArray , alldata, rstemp, conntemp
myTableNames = " ACE_INTSUMS,RFI,CDM"
myArray = split(myTableNames," ," )

FOR i = lBound(myArray) to uBound(myArray)

set conntemp=server.createobject(" adodb.connection" )
conntemp.open (" DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(" /fpdb/myDBName.mdb" ))
set rstemp=conntemp.execute(" SELECT * FROM " & myArray(i)) & " WHERE (timestamp BETWEEN #" & DateAdd(" n" ,-60,Now()) & " # AND #" & Now() & " #) ORDER BY timestamp DESC"

IF rstemp.eof THEN
response.write " No reports submitted in past hour ..."
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing

ELSE

' Now lets grab all the records
alldata=rstemp.getrows
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing

numrows=ubound(alldata,2)

FOR rowcounter= 0 TO numrows
response.write " <font size=' 1' face=' Verdana' >REC #: " & alldata(0,rowcounter) & " </font><br>"
NEXT

END IF
NEXT
%>


</body></html>

The line in bold is the only concern I have. It is for an Access 97 DB named ' myDBName' located in the fpdb directory. Change the name to suit your environment. If it is an Access2K db, try using this line instead:

conntemp.open (" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(" /fpdb/myDBName.mdb" ))

I realize its' not the DRW, but it' s the only way I can think of to solve your problem....

< Message edited by rdouglass -- 12/19/2002 1:59:01 PM >

(in reply to tomfuller)
ScribeVision

 

Posts: 274
From: None
Status: offline

 
RE: Using global date functions - 12/19/2002 18:46:08   
Hi,

Tried the new option (with Access 2000) and get an Internal Server error.

<html>
<head>
<meta name=" GENERATOR" content=" Microsoft FrontPage 5.0" >
<title>REC</title>
</head>

<body>

<% DIM myTableNames, myArray , alldata, rstemp, conntemp
myTableNames = " ACE_INTSUMS,RFI,CDM"
myArray = split(myTableNames," ," )

FOR i = lBound(myArray) to uBound(myArray)

set conntemp=server.createobject(" adodb.connection" )
conntemp.open (" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(" /fpdb/ScribeVision.mdb" ))
set rstemp=conntemp.execute(" SELECT * FROM " & myArray(i)) & " WHERE (timestamp BETWEEN #" & DateAdd(" n" ,-60,Now()) & " # AND #" & Now() & " #) ORDER BY timestamp DESC"

IF rstemp.eof THEN
response.write " No reports submitted in past hour ..."
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing

ELSE

' Now lets grab all the records
alldata=rstemp.getrows
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing

numrows=ubound(alldata,2)

FOR rowcounter= 0 TO numrows
response.write " <font size=' 1' face=' Verdana' >REC #: " & alldata(0,rowcounter) & " </font><br>"
NEXT

END IF
NEXT
%>


</body></html>


I' ll keep trying.

(in reply to tomfuller)
rdouglass

 

Posts: 9265
From: Biddeford, ME USA
Status: offline

 
RE: Using global date functions - 12/20/2002 9:26:37   
Can you post the error message?

(in reply to tomfuller)
ScribeVision

 

Posts: 274
From: None
Status: offline

 
RE: Using global date functions - 12/20/2002 16:12:50   
The error is:

The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.

--------------------------------------------------------------------------------

Please try the following:

Click the Refresh button, or try again later.

Open the www.agd.state.tx.us home page, and then look for links to the information you want.
HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

--------------------------------------------------------------------------------

Technical Information (for support personnel)

Error Type:
Microsoft JET Database Engine (0x80004005)
' D:\Web Folders\fpdb\ScribeVision.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.
/49ad/test.asp, line 16


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)

Page:
GET /49ad/test.asp

Time:
Friday, December 20, 2002, 2:50:01 PM


< Message edited by ScribeVision -- 12/20/2002 4:18:13 PM >

(in reply to tomfuller)
rdouglass

 

Posts: 9265
From: Biddeford, ME USA
Status: offline

 
RE: Using global date functions - 12/24/2002 9:54:17   
Sorry haven' t got back to this. Try using this code. Notice the bold line....

<html>
<head>
<meta name=" GENERATOR" content=" Microsoft FrontPage 5.0" >
<title>REC</title>
</head>

<body>

<% DIM myTableNames, myArray , alldata, rstemp, conntemp
myTableNames = " ACE_INTSUMS,RFI,CDM"
myArray = split(myTableNames," ," )

FOR i = lBound(myArray) to uBound(myArray)

set conntemp=server.createobject(" adodb.connection" )
conntemp.open (Application(" CAIntNet_ScribeVision" ))
set rstemp=conntemp.execute(" SELECT * FROM " & myArray(i)) & " WHERE (timestamp BETWEEN #" & DateAdd(" n" ,-60,Now()) & " # AND #" & Now() & " #) ORDER BY timestamp DESC"

IF rstemp.eof THEN
response.write " No reports submitted in past hour ..."
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing

ELSE

' Now lets grab all the records
alldata=rstemp.getrows
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing

numrows=ubound(alldata,2)

FOR rowcounter= 0 TO numrows
response.write " <font size=' 1' face=' Verdana' >REC #: " & alldata(0,rowcounter) & " </font><br>"
NEXT

END IF
NEXT
%>


</body></html>

I' m trying to use the DRW connection string in the global.asa file. Hope it helps....

(in reply to tomfuller)
ScribeVision

 

Posts: 274
From: None
Status: offline

 
RE: Using global date functions - 12/24/2002 12:58:36   
Thanks for hanging in there.

Just tried the new code and got:

HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

--------------------------------------------------------------------------------

Technical Information (for support personnel)

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/49ad/garrison/WFX03/reports/SCRATCHER.asp, line 16


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)

Page:
GET /49ad/garrison/WFX03/reports/SCRATCHER.asp

Time:
Tuesday, December 24, 2002, 11:36:40 AM

(in reply to tomfuller)
rdouglass

 

Posts: 9265
From: Biddeford, ME USA
Status: offline

 
RE: Using global date functions - 12/26/2002 8:51:44   
quote:

conntemp.open (Application(" CAIntNet_ScribeVision" ))


OOPS! my bad.... I' m sorry - was probably getting into the ' Christmas spirits' too early then...:) (Hope you had a nice holiday..:))

See, what I' m trying to do at this point is to find your DB connection string. What I should have put there was this line instead:

conntemp.open (Application(" ScribeVision_ConnectionString" ))

or whatever is the connection string variable in your global.asa file. If that still doesn' t work, let' s try building an ASP page with just the following code:

<html>
<head>
<title>Connection String</title>
</head>
<body>
<%=Application(" ScribeVision_ConnectionString" )%>
</body>
</html>

Save it as an ASP page and browse to it. Whatever shows up on the page is the code we should be using for the connections tring in the ' conntemp.open' line:

conntemp.open (whateverTheConnectionStringIs)

Does that make sense at all??

I am really sorry ' bout the screwup...:) but we' ll get there...:) It isn' t anything that can' t be done or hasen' t been done before....

< Message edited by rdouglass -- 12/26/2002 8:54:05 AM >

(in reply to tomfuller)
ScribeVision

 

Posts: 274
From: None
Status: offline

 
RE: Using global date functions - 12/26/2002 11:39:57   
Hi,

After following your suggestion to determine the database connection, I wound up with the following code:

<html>
<head>
<meta name=" GENERATOR" content=" Microsoft FrontPage 5.0" >
<title>REC</title>
</head>

<body>

<% DIM myTableNames, myArray , alldata, rstemp, conntemp
myTableNames = " RFI,CDM"
myArray = split(myTableNames," ," )

FOR i = lBound(myArray) to uBound(myArray)

set conntemp=server.createobject(" adodb.connection" )
conntemp.open (Application(" ScribeVision_ConnectionString" ))
set rstemp=conntemp.execute(" SELECT * FROM " & myArray(i)) & " WHERE (timestamp BETWEEN #" & DateAdd(" n" ,-60,Now()) & " # AND #" & Now() & " #) ORDER BY timestamp DESC"

IF rstemp.eof THEN
response.write " No reports submitted in past hour ..."
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing

ELSE

' Now lets grab all the records
alldata=rstemp.getrows
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing

numrows=ubound(alldata,2)

FOR rowcounter= 0 TO numrows
response.write " <font size=' 1' face=' Verdana' >REC #: " & alldata(0,rowcounter) & " </font><br>"
NEXT

END IF
NEXT
%>


</body></html>



However, I still get the following error:

There is a problem with the page you are trying to reach and it cannot be displayed.

(in reply to tomfuller)
rdouglass

 

Posts: 9265
From: Biddeford, ME USA
Status: offline

 
RE: Using global date functions - 12/26/2002 12:23:08   
quote:

<html>
<head>
<title>Connection String</title>
</head>
<body>
<%=Application(" ScribeVision_ConnectionString" )%>
</body>
</html>


Can you build a page with just that code and post the results?

(in reply to tomfuller)
ScribeVision

 

Posts: 274
From: None
Status: offline

 
RE: Using global date functions - 12/26/2002 12:35:01   
Sure!

A page with the full code with the error is at:

http://www.agd.state.tx.us/49ad/WFX03/REPORTS/REPORT_TEST.ASP

The page with just the connection code is:

http://www.agd.state.tx.us/49ad/WFX03/REPORTS/REPORT_TEST_2.ASP

(in reply to tomfuller)
rdouglass

 

Posts: 9265
From: Biddeford, ME USA
Status: offline

 
RE: Using global date functions - 12/26/2002 12:51:18   
Can you build a new page and put just this code on it? and post results?

What I' m doing is getting rid of the ' outside' loop (the one looping thru the tables) to see if our connection string will be valid.

quote:

<html>
<head>
<meta name=" GENERATOR" content=" Microsoft FrontPage 5.0" >
<title>REC</title>
</head>

<body>

<% DIM myTableNames, myArray , alldata, rstemp, conntemp
myTableNames = " RFI,CDM"
myArray = split(myTableNames," ," )

FOR i = lBound(myArray) to uBound(myArray)

set conntemp=server.createobject(" adodb.connection" )
conntemp.open (Application(" ScribeVision_ConnectionString" ))
set rstemp=conntemp.execute(" SELECT * FROM " & myArray(i)) & " WHERE (timestamp BETWEEN #" & DateAdd(" n" ,-60,Now()) & " # AND #" & Now() & " #) ORDER BY timestamp DESC"

IF rstemp.eof THEN
response.write " No reports submitted in past hour ..."
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing

ELSE

' Now lets grab all the records
alldata=rstemp.getrows
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing

numrows=ubound(alldata,2)

FOR rowcounter= 0 TO numrows
response.write " <font size=' 1' face=' Verdana' >REC #: " & alldata(0,rowcounter) & " </font><br>"
NEXT

END IF
NEXT
%>


</body></html>

(in reply to tomfuller)
ScribeVision

 

Posts: 274
From: None
Status: offline

 
RE: Using global date functions - 12/26/2002 13:03:06   
Hi,

Just posted your modified changes at:

http://www.agd.state.tx.us/49ad/WFX03/REPORTS/REPORT_TEST.ASP

And got:

HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

--------------------------------------------------------------------------------

Technical Information (for support personnel)

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch
/49ad/WFX03/REPORTS/REPORT_TEST.ASP, line 17


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.0.3705)

Page:
GET /49ad/WFX03/REPORTS/REPORT_TEST.ASP

Time:
Thursday, December 26, 2002, 11:40:19 AM

(in reply to tomfuller)
rdouglass

 

Posts: 9265
From: Biddeford, ME USA
Status: offline

 
RE: Using global date functions - 12/26/2002 13:07:56   
Wait a minute......

< Message edited by rdouglass -- 12/26/2002 1:09:23 PM >

(in reply to tomfuller)
rdouglass

 

Posts: 9265
From: Biddeford, ME USA
Status: offline

 
RE: Using global date functions - 12/26/2002 13:11:12   
That post above was NOT the code I had intended on posting...sorry... Try this code. This is the code that removes the outside loop temporarily...

<html>
<head>
<meta name=" GENERATOR" content=" Microsoft FrontPage 4.0" >
<title>REC</title>
</head>

<body>

<% DIM myTableNames, myArray , alldata, rstemp, conntemp
myTableNames = " RFI,CDM"
myArray = split(myTableNames," ," )

' FOR i = lBound(myArray) to uBound(myArray)

set conntemp=server.createobject(" adodb.connection" )
conntemp.open (conntemp.open (" DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(" \fpdb\scribevision.mdb" ))
set rstemp=conntemp.execute(" SELECT * FROM RFI WHERE (timestamp BETWEEN #" & DateAdd(" n" ,-60,Now()) & " # AND #" & Now() & " #) ORDER BY timestamp DESC"

IF rstemp.eof THEN
response.write " No reports submitted in past hour ..."
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing

ELSE

' Now lets grab all the records
alldata=rstemp.getrows
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing

numrows=ubound(alldata,2)

FOR rowcounter= 0 TO numrows
response.write " <font size=' 1' face=' Verdana' >REC #: " & alldata(0,rowcounter) & " </font><br>"
NEXT

END IF
' NEXT
%>


</body></html>

(in reply to tomfuller)
ScribeVision

 

Posts: 274
From: None
Status: offline

 
RE: Using global date functions - 12/26/2002 13:17:13   
Isn' t this fun?

Ok, just posted the lasted code and got the following:

HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

--------------------------------------------------------------------------------

Technical Information (for support personnel)

Error Type:
Microsoft VBScript compilation (0x800A03EE)
Expected ' )'
/49ad/WFX03/reports/report_test.asp, line 16, column 122


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.0.3705)

Page:
GET /49ad/WFX03/reports/report_test.asp

Time:
Thursday, December 26, 2002, 11:54:02 AM

(in reply to tomfuller)
rdouglass

 

Posts: 9265
From: Biddeford, ME USA
Status: offline

 
RE: Using global date functions - 12/26/2002 13:32:47   
conntemp.open (conntemp.open (" DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(" \fpdb\scribevision.mdb" ))

should be:

conntemp.open (" DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(" \fpdb\scribevision.mdb" ))

:)

and yes, this is fun [:p] Are you holding up OK? I' m OK - its not my project...:)

(in reply to tomfuller)
ScribeVision

 

Posts: 274
From: None
Status: offline

 
RE: Using global date functions - 12/26/2002 14:05:17   
It' s more fun than post Christmas gift returns ...

Made the latest change and still got error. I then made the following change and no longer get an error:

conntemp.open (" DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(" ..\fpdb\scribevision.mdb" ))

I added a nes " CDM" report, but it still shows no reports added in last hour.

Progress.

Thanks for sticking with this.

(in reply to tomfuller)
Page:   [1] 2   next >   >>

All Forums >> Web Development >> ASP and Database >> Using global date functions
Page: [1] 2   next >   >>
Jump to: 1





New Messages No New Messages
Hot Topic w/ New Messages Hot Topic w/o New Messages
Locked w/ New Messages Locked w/o New Messages
 Post New Thread
 Reply to Message
 Post New Poll
 Submit Vote
 Delete My Own Post
 Delete My Own Thread
 Rate Posts