I’m trying to put together something that displays a quote based on a date range. Here are the restrictions:
• Quotes are updated on Tuesdays and Fridays.
• The quote from Tuesdays are displayed until Friday.
• The Friday quotes are displayed until the next Tuesday.
• Quotes don’t repeat and I can’t put them into a database.
Here’s what I have so far…
quoteDate = Right("0" & Month(Date), 2) & "/" & Right("0" & Day(Date), 2)
If UCase(quoteActive) = "Y" Then
'response.write(quoteDate)
If quoteDate >= "05/01" And quoteDate <= "05/03" Then
Response.Write("Quote")
ElseIf quoteDate >= "05/04" And quoteDate <= "05/07" Then
Response.Write("Quote2")
ElseIf quoteDate >= "05/08" And quoteDate <= "05/10" Then
Response.Write("Quote3")
ElseIf quoteDate >= "05/11" And quoteDate <= "05/14" Then
Response.Write("Quote4")
ElseIf quoteDate >= "05/15" And quoteDate <= "05/17" Then
Response.Write("Quote5")
Else
'Do Nothing
End If
End If
Is there an easier or more efficient way of doing this?
Thanks,
s_r
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
I agree. Besides not being able to use a database, the other issue, and I think bigger, is not repeating quotes. That means modifying this or some other file anyways. You might simplify the modification by putting the quotes and dates in an array but that is about it. If I misunderstood about either of these options then let me know because it certainly doesn't seem to be a good use of server script. It wouldn't be fun to have to change it regularly. :)
bol
>>It wouldn't be fun to have to change it regularly.
i agree with that. the other thing that popped in my head earlier was to write these quotes to a flat file and use fso to read them, but that will just increase processing and time.
s_r, can you explain to us the reason for that restriction? we might be able to help you work around/with it.
b0lsc0tt and WMIF,
Because you both took the time to look over my question and comment, I will split the points between you both.
Just to share, here is the solution I'll be using. There are business restrictions preventing me from using a database. but I wanted to automate the script so that I wouldn't have to manually update the page every Tuesday and Friday. At least this way I don't need to worry about it until next year.
Regards,
s_r
<%
'*************************
Dim quoteActive, quoteDate, strQuote, x
'*************************
quoteActive = "Y"
If UCase(quoteActive) = "Y" Then
quoteDate = Right("0" & Month(Date), 2) & "/" & Right("0" & Day(Date), 2)
dim arr(2)
arr(0) = "Quote1"
arr(1) = "Quote2"
arr(2) = "Quote3"
dim arr2(2)
arr2(0) = "05/01"
arr2(1) = "05/04"
arr2(2) = "05/08"
x = 0
Do while quoteDate >= arr2(x)
strQuote = arr(x)
x = x + 1
'needed to end loop so that you don't go beyond the array
if x > 2 then
exit do
end if
Loop
Response.Write(strQuote)
End If
'*************************
%>
I'm glad I could help and appreciate the split but I'm puzzled by the grade. It seems like the grade was a B. However the solution you ended up using, the "easier way" you "figured out" seems to use arrays, which was an idea I suggested as a change to make it a little easier to modify. It would seem like that deserved more than a B, especially since either one of us would have provided details or help if you asked.
I am definitely glad you got it working a little better and do appreciate the reply and info. I was just a little puzzled by the grade.
Thanks for the fun question.
bol
I actually got my answer from outside Experts Exchange but wanted to thank you both for at least taking the time to view my question by awarding points rather than closing the question. I reviewed the grading policy and thought a 'B' was appropriate. I re-evaluated the guidelines and realized that coding samples would have been supplied if asked resulting in an 'A' grade. Originally, I was looking for examples but I see now that my intent and request was unclear.
My apologies, I placed a request to have the grade changed.
Best regards,
s_r
Thanks for the reply and for the extra time to re-evaluate and have the grade change made. Although the most important thing to me was your question being solved I do appreciate the A and especially the extra time involved in this case. It is nice to have a chance to earn the A and I'm glad you recognized that we would've done what was needed to help.
Thanks again for the reply and change. See you around and good luck with the project. :)
bol
Business Accounts
Answer for Membership
by: WMIFPosted on 2007-05-03 at 16:11:01ID: 19027716
if you cant put the data into a database, then thats about as good as you are gonna get.