473,836 Members | 1,590 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

include page based on week of year.

I have to update a page every week. I get the page ahead of time so I used
the "scheduled includes" webbot in Frontpage only to find that I would have
to refresh the page every week to have it work. That is silly, it should run
by itself. so...
I asked the question in the FP group and I was offered this pseudocode
to do it by month which would work if it's possible to do it by week without
writing 52 seperate lines, one for each week which would change each year
and have to be rewritten each year.

<% If Now()>date("1/3/2005") then %>
<!-- #include file="includes/mar.asp" -->
<% elseif Now()>date("1/2/2005") then %>
<!-- #include file="includes/feb.asp" -->
<% else %>
<!-- #include file="includes/jan.asp" -->
<% endif %>

Now the goal for me would be something that would calculate which week of
the year (any year) it is.
i.e. Jan 1-7 = w1.htm , Jan 8-15= w2.htm etc. and return a Wx.htm for each
week.
That way all I have to do is save a wx.htm file where x= week of year.
so ... how can I caclulate what week of the year it is?
Jul 22 '05
21 1930
I see... put it before all the HTML and then call the result?
I moved it and now I can leave "Option Explicit" alone (uncommented) and it
works perfect!
Must be neccessary to put it above all the html processing?
" <%=strOTF%> " is a powerful command! What is that? Does that mean to put
the contents of "strOTF" here?
However it works, this is great and has saved me a real nusiance every week.

Thank You so much for your help.
-mmac

"McKirahan" <Ne**@McKirahan .com> wrote in message
news:u6******** ************@co mcast.com...
".:mmac:." <lost@sea> wrote in message
news:#a******** ******@tk2msftn gp13.phx.gbl...
Thanks for your persistance with this.
here is the whole page of code:

<%@ Language="VBScr ipt" %>
<html><head>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<meta name="GENERATOR " content="Micros oft FrontPage 6.0">
<meta name="ProgId" content="FrontP age.Editor.Docu ment">
<title>Using FSO</title>
<meta name="Microsoft Theme" content="111, default">
<meta name="Microsoft Border" content="tlb, default">
</head><body>

<p>&nbsp;

<% 'Option Explicit
' This Works!!! 1-17-05
'*
Dim strOTF
strOTF = "Week" & Int((DatePart(" y",Date())+6 )/7) & ".htm"
strOTF = Replace(strOTF, "Week53.htm","W eek52.htm")
strOTF = Server.MapPath( strOTF)
' Response.Write strOTF & "<br>"
'* remove the above line after testing.
'*
Dim objFSO
Set objFSO = CreateObject("S cripting.FileSy stemObject")
If objFSO.FileExis ts(strOTF) Then
Dim objOTF
Set objOTF = objFSO.OpenText File(strOTF,1)
strOTF = objOTF.ReadAll( )
Set objOTF = Nothing
End If
Set objFSO = Nothing
'*
Response.Write strOTF
%>
</p></body></html>
If I comment out the "Option Explicit" as shown above, the page runs fine
now, (not sure what changed, but it works, thank you. :~}but..

If I don't comment out the "Option Explicit" I get this error:
Microsoft VBScript compilation error '800a0400'
Expected statement
/OYB/Test1.asp, line 41
Option Explicit
^
Is this going to be a problem?


[snip]

"Option Explicit" is used to ensure that all variables are declared before
they're used.

If it only works without then remove it.

I'd probably write it like the following:

<%@ Language="VBScr ipt" %>
<% Option Explicit
'*
Dim strOTF
strOTF = "Week" & Int((DatePart(" y",Date())+6 )/7) & ".htm"
strOTF = Replace(strOTF, "Week53.htm","W eek52.htm")
strOTF = Server.MapPath( strOTF)
'*
Dim objFSO
Set objFSO = CreateObject("S cripting.FileSy stemObject")
If objFSO.FileExis ts(strOTF) Then
Dim objOTF
Set objOTF = objFSO.OpenText File(strOTF,1)
strOTF = objOTF.ReadAll( )
Set objOTF = Nothing
End If
Set objFSO = Nothing
%>
<html>
<head>
<title>Using FSO</title>
</head>
<body>
<p><%=strOTF% ></p>
</body>
</html>

Jul 22 '05 #21
".:mmac:." <no@thank.you > wrote in message
news:eF******** ******@TK2MSFTN GP11.phx.gbl...
I see... put it before all the HTML and then call the result?
I moved it and now I can leave "Option Explicit" alone (uncommented) and it works perfect!
Must be neccessary to put it above all the html processing?
http://www.devguru.com/Technologies/...nexplicit.html
" <%=strOTF%> " is a powerful command! What is that? Does that mean to put
the contents of "strOTF" here?
Yes.
However it works, this is great and has saved me a real nusiance every week.
Thank You so much for your help.
You're welcome.
-mmac

Jul 22 '05 #22

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

2
5228
by: androtech | last post by:
Hello, I'm looking for a function that returns a date range for a specified week number of the year. I'm not able to find functions like this anywhere. Any pointers/help would be much appreciated. TIA
7
15153
by: Shuffs | last post by:
Could someone, anyone please tell me what I need to amend, to get this function to take Sunday as the first day of the week? I amended the Weekday parts to vbSunday (in my code, not the code attached), yet when I ran it for 28/09/2003 (UK date format) it returned Week 39. I would have expected it to return Week 40. However, I'm really stuck and my head is busting over this, so any pointers would be gratefully appreciated. Many thanks...
7
2120
by: peter | last post by:
I have created a MS Access query where one of the fields displays the week number. The field is a date value that uses the ww format to display the week number. However, when I try to create a calculation such as *2 I get an incorrect value. For example, if the week number is 11 and I multiply it by 2 I get an answer of 21. How do I convert the displayed week number into an integer value so that I can then perform a calculation on it?
9
3425
by: Ray | last post by:
I need to convert the normal calendar to show the week no., the period no. and the financial year. The financial year format is as follows:- Date start: 2 May, 2005 7 days a week, 4 weeks a period and 13 periods a year. normally 52 weeks per year but one 53-week a year every 6 years. The 53th week is included in period 13. Can someone advise any idea how to construct such conversion.
3
6105
by: Steph. | last post by:
Hi, When I use the "Calendar.GetWeekOfYear" function (with "fr-BE" as CultureInfo and Monday as the first day of week) I get : Friday 31/12/2004 : week = 53
5
3233
by: bruce24444 | last post by:
I have a database which assigns warranty claims to people with a main screen showing number of files assigned to each person. The number assigned shows day, week, month and year numbers so they can be evenly distributed. The problem I'm having is getting the query to return a number of files for the current date. Week, month and year appear to work fine. Below are the SQL's for both day and week. Any suggestions as to what's wrong...
10
2245
by: nicolai | last post by:
There are plenty of scripts that load html into a page based on the day of the week, month, or randomly, but I would like to load a different page every day of the year. I would like to give a script a list of 365 html pages and have it load a new one into that page each day Thanks in advance
3
5842
by: =?Utf-8?B?cm9kY2hhcg==?= | last post by:
hey all, is there a way if you are given a Year and a Week an easy way to go back say 26 weeks ago from given year/week. for example, given: 2008/16 26 weeks prior is: 2007/43 thanks,
0
9671
by: Hystou | last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
0
10553
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...
0
10255
tracyyun
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
0
9382
agi2029
by: agi2029 | last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own.... Now, this would greatly impact the work of software developers. The idea...
1
7793
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules. He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms. Adolph will...
0
5829
by: adsilva | last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
1
4459
by: 6302768590 | last post by:
Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
2
4021
muto222
by: muto222 | last post by:
How can i add a mobile payment intergratation into php mysql website.
3
3116
bsmnconsultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.