Cannot get ASP page to display 1

Trudye · Dec 7, 2003

I have coded my first ASP page however IE will not display my ASP page. My internet host supports VBscript and ASP. I am running Windows 2000 which (I thought) came with IIS. My file is named Calendar.asp. Can anyone tell me what I am missing?
Here is my code:
<%@ LANGUAGE - VBScript %>
<% option explicit %>

<html>
<head>
<title>Calendar</title>
</head>
<body>
<%
'Get month name
function GetMonthName(iMonth)
Select Case iMonth
Case 1:
GetMonthName = "January"
Case 2:
GetMonthName = "February"
Case 3:
GetMonthName = "March"
Case 4:
GetMonthName = "April"
Case 5:
GetMonthName = "May"
Case 6:
GetMonthName = "June"
Case 7:
GetMonthName = "July"
Case 8:
GetMonthName = "August"
Case 9:
GetMonthName = "September"
Case 10:
GetMonthName = "October"
Case 11:
GetMonthName = "November"
Case 12:
GetMonthName = "December"
Case else:
GetMonthName = "**INVALID MONTH**"
End Select
End Function

'Get current date
Dim dbCurrentDate
dbCurrentDate = Date()

'Create array that will store max number of cells (42)
dim aCalendarDays(42)

'Determine the weekday the first day of the month
'falls on (ie. monday, tuesday etc,)
iFirstWeekDay = DatePart("w", DateSerial(dbCurrentDate), _
Month(dbCurrentDate),1))

'Determind number of days in the current month
dim iDaysInMonth
iDaysInMonth = DatePart("d", DateSerial(Year(dbCurretnDate), _
Month(dbCurrentDate),1, 1-1))

'Now loop from 1 to number of days in the current month
'populating the array aCalendarDays
dim iLoop
for iLoop = 1 to iDaysInMonth
aCalendarDays(iLoop + iFirstWeekDay -1) = iLoop

'Display the array in calendar form. Black out days that
'are N/A
dim iColumns, IRows
icolumns = 7
iRows = 6 - Int((42 - (iFirstWeekDay + iDaysInMonth)) / 7)

%>
<TABLE ALIGN=CENTER BORDER=1 CELLSPACING=1 WIDTH=75% TEIGHT=75%
<TH COLSPAN=7>
<FONTSIZE=+2>
<%
'Display the month and year
Response.write GetMonthName(month(dbCurrentDate))
response.write ", " & Year(dbCurrentDate)
%>

</FONT>
</TH>
<%
'Loop thru 1 thru iRows, then 1 thru iColumns
dim iRowsLoop, iColumnsLoop

For iRowsLoop = 1 to iRows
'Create a new row
Response.write "<TR>"
For iColumnsLoop = 1 to iColumns
'Create a new col
If aCalendarDays((iRowsLoop -1)*7 + IColumnsLoop) > 0 then
response.write "<TD VALIGN=TOP ALIGN=RIGHT WIDTH=""14%"">"
Response.Write aCalendarDays((iRowsLoop-1)*7 + iColumnsLoop)
Response.write "</TD>"
else
Response.write <TD BGCOLOR=BLACK>&NBSP;</TD>"
End if
Next
'close the row
response.write "</TR>"
%>
</Table>
</body>
</html>

Thank you,
Trudye

Trudye · Dec 7, 2003

I checked out IIS in Admin Tools;IIS and under LOCAL:Yes, connection type: TCP/IP.

I am not even getting any syntax errors.

Thanks
Trudye

MadJock · Dec 8, 2003

Here's a couple of tips that may help

1) In IE, goto advanced options and untick 'Show Friendly HTTP error messages'. This will display any faults that would otherwise be hidden
2) Make sure that you are browsing to the server (e.g.

http://desktop/mypage.asp

and NOT c:\inetpub\

http://wwwroot\myPage.asp

3) Stick some response.writes in your code to debug, for example put <%response.write iMonth%> before your SELECT CASE statement to make sure the contents are what you expect.

If you get an HTTP arror message, post it here if you're still struggling.

Hope this helps,

Graeme

website:

http://www.graeme-taylor.co.uk

ranta · Dec 8, 2003

Hi,

Are you actually getting the page can not be displayed message? If so there seems to be a little "quirk" with explorer.

Try copying out all your code into notepad or something and replace it with some random text, i.e. "ss". Save this and refresh your page. You should now see the "ss" displayed in your browser window.

Copy and paste the original code back, save it and refresh the page again, hopefully you will now get a proper error message pointing to a line number...

Ranta

GaryC123 · Dec 8, 2003

You have multiple syntax errors in your code and useless code like the monthname function, have a look at this

<html>
<head>
<title>Calendar</title>
</head>
<body>
<%

Public Function LastDay(testYear,testMonth)
LastDay = Day(DateSerial(testYear, testMonth + 1, 0))
End Function

Dim dbCurrentDate,iColumns, IRows,iDaysInMonth,iLoop,iRowsLoop, iColumnsLoop

dbCurrentDate = Date()

iFirstWeekDay = weekday(year(dbCurrentDate) & "/" & Month(dbCurrentDate) & "/" & "1&quot

-2
response.write iFirstWeekDay

iDaysInMonth = LastDay(Year(dbCurretnDate),Month(dbCurrentDate))

%>
<TABLE ALIGN=CENTER BORDER=1 CELLSPACING=1 WIDTH=75% TEIGHT=75%
<TH COLSPAN=7>
<FONTSIZE=+2>
<%
Response.write MonthName(month(dbCurrentDate)) & ", " & Year(dbCurrentDate)
%>

</FONT>
</TH>
<%
response.write "<TR>"

For count=1 to 7
response.write "<TD align=center>" & weekdayname(count,1) & "</TD>"
next

response.write "</TR><TR>"

For count=0 to iFirstWeekDay
response.write "<TD></TD>"
next

For count= 1 to iDaysInMonth
if count Mod 7=0 then response.write "</TR><TR>"
response.write "<TD VALIGN=TOP ALIGN=RIGHT WIDTH='14%'>"
Response.Write count
Response.write "</TD>"
next
response.write "</TR>"

%>
</Table>
</body>
</html>

http://www.intouchmedialtd.com

Trudye · Dec 8, 2003

Thanks MadJock: I did unck 'Show Friendly HTTP error messages 'and I also unck'd 'Disable a notification about every script error' and there was not change. I had previously uploaded the script via FTP so I was using the actual URL to call it up.

Hi Ranta; what I am getting is a BLANK PAGE. Nothing! NADA!

Thanks GaryC for responding; I expected there to be syntax errors but I thought that the pgm that I use to write scripts would flag them (as it has done in the past with HTML/VBScript). When that did not happen I uploaded the page assuming that there was something special about ASP or that my pgm was unable to handle it. As I wrote to Ranta I get a 'DONE' in the lower left corner of the screen and nothing else just a BLANK PAGE.
I uploaded the page you were kind enough to provide and I got the same thing A BLANK PAGE.
Is it possible I have to contact my Internet Host?

Thanks again guys,
Trudye

SarkMan · Dec 8, 2003

try this

<%@ Language=VBScript %>
<% 'option explicit %>

<html>
<head>
<title>Calendar</title>
</head>
<body>
<%
'Get month name
function GetMonthName(iMonth)
Select Case iMonth
Case 1:
GetMonthName = "January"
Case 2:
GetMonthName = "February"
Case 3:
GetMonthName = "March"
Case 4:
GetMonthName = "April"
Case 5:
GetMonthName = "May"
Case 6:
GetMonthName = "June"
Case 7:
GetMonthName = "July"
Case 8:
GetMonthName = "August"
Case 9:
GetMonthName = "September"
Case 10:
GetMonthName = "October"
Case 11:
GetMonthName = "November"
Case 12:
GetMonthName = "December"
Case else:
GetMonthName = "**INVALID MONTH**"
End Select
End Function

'Get current date
Dim dbCurrentDate
dbCurrentDate = Date()

'Create array that will store max number of cells (42)
dim aCalendarDays(42)

'Determine the weekday the first day of the month
'falls on (ie. monday, tuesday etc,)
iFirstWeekDay = DatePart("w", DateSerial(year(dbCurrentDate), Month(dbCurrentDate),1))

'Determind number of days in the current month
dim iDaysInMonth
iDaysInMonth = DatePart("d", DateSerial(Year(dbCurretnDate), Month(dbCurrentDate),0))

'Now loop from 1 to number of days in the current month
'populating the array aCalendarDays
dim iLoop
for iLoop = 1 to iDaysInMonth
aCalendarDays(iLoop + iFirstWeekDay -1) = iLoop
next
'Display the array in calendar form. Black out days that
'are N/A
dim iColumns, IRows
icolumns = 7
iRows = 6 - Int((42 - (iFirstWeekDay + iDaysInMonth)) / 7)

%>
<TABLE ALIGN=CENTER BORDER=1 CELLSPACING=1 WIDTH=75% HEIGHT=75%>
<TH COLSPAN=7>
<FONT SIZE=+2>
<%
'Display the month and year
Response.write GetMonthName(month(dbCurrentDate))
response.write ", " & Year(dbCurrentDate)
%>

</FONT>
</TH>
<%
'Loop thru 1 thru iRows, then 1 thru iColumns
dim iRowsLoop, iColumnsLoop

For iRowsLoop = 1 to iRows
'Create a new row
Response.write "<TR>"
For iColumnsLoop = 1 to iColumns
'Create a new col
If aCalendarDays((iRowsLoop -1)*7 + IColumnsLoop) > 0 then
response.write "<TD VALIGN=TOP ALIGN=RIGHT WIDTH=""14%"">"
Response.Write aCalendarDays((iRowsLoop-1)*7 + iColumnsLoop)
Response.write "</TD>"
else
Response.write "<TD BGCOLOR=BLACK>&NBSP;</TD>"
End if
Next
'close the row
response.write "</TR>"
next
%>
</Table>
</body>
</html>

Trudye · Dec 8, 2003

Well we are making progress. I am now getting the outline of the calendar but nothing else. I ran the code thru VB 6.0 developer pgm and found that your version was in deed error free.

What else could it be? I ck'd 'automatically ck for IE updates' and added all of the service packs I was missing. I then rebooted but alas no improvment.

Trudye

SarkMan · Dec 8, 2003

I don't know if you uncommented the option explicit.
But when I did I found 2 more error.

Try this now

<%@ Language=VBScript %>
<% option explicit %>

<html>
<head>
<title>Calendar</title>
</head>
<body>
<%
'Get month name
function GetMonthName(iMonth)
Select Case iMonth
Case 1:
GetMonthName = "January"
Case 2:
GetMonthName = "February"
Case 3:
GetMonthName = "March"
Case 4:
GetMonthName = "April"
Case 5:
GetMonthName = "May"
Case 6:
GetMonthName = "June"
Case 7:
GetMonthName = "July"
Case 8:
GetMonthName = "August"
Case 9:
GetMonthName = "September"
Case 10:
GetMonthName = "October"
Case 11:
GetMonthName = "November"
Case 12:
GetMonthName = "December"
Case else:
GetMonthName = "**INVALID MONTH**"
End Select
End Function

'Get current date
Dim dbCurrentDate
dbCurrentDate = Date()

'Create array that will store max number of cells (42)
dim aCalendarDays(42)
dim iFirstWeekDay
'Determine the weekday the first day of the month
'falls on (ie. monday, tuesday etc,)
iFirstWeekDay = DatePart("w", DateSerial(year(dbCurrentDate), Month(dbCurrentDate),1))

'Determind number of days in the current month
dim iDaysInMonth
iDaysInMonth = DatePart("d", DateSerial(Year(dbCurrentDate), Month(dbCurrentDate),0))

'Now loop from 1 to number of days in the current month
'populating the array aCalendarDays
dim iLoop
for iLoop = 1 to iDaysInMonth
aCalendarDays(iLoop + iFirstWeekDay -1) = iLoop
next
'Display the array in calendar form. Black out days that
'are N/A
dim iColumns, IRows
icolumns = 7
iRows = 6 - Int((42 - (iFirstWeekDay + iDaysInMonth)) / 7)

%>
<TABLE ALIGN=CENTER BORDER=1 CELLSPACING=1 WIDTH=75% HEIGHT=75%>
<TH COLSPAN=7>
<FONT SIZE=+2>
<%
'Display the month and year
Response.write GetMonthName(month(dbCurrentDate))
response.write ", " & Year(dbCurrentDate)
%>

</FONT>
</TH>
<%
'Loop thru 1 thru iRows, then 1 thru iColumns
dim iRowsLoop, iColumnsLoop

For iRowsLoop = 1 to iRows
'Create a new row
Response.write "<TR>"
For iColumnsLoop = 1 to iColumns
'Create a new col
If aCalendarDays((iRowsLoop -1)*7 + IColumnsLoop) > 0 then
response.write "<TD VALIGN=TOP ALIGN=RIGHT WIDTH=""14%"">"
Response.Write aCalendarDays((iRowsLoop-1)*7 + iColumnsLoop)
Response.write "</TD>"
else
Response.write "<TD BGCOLOR=BLACK>&NBSP;</TD>"
End if
Next
'close the row
response.write "</TR>"
next
%>
</Table>
</body>
</html>

Trudye · Dec 8, 2003

Hi Sarkman, I'm getting the same response, the outline of the calendar.

OBTW you were right I did not uncomment the Option Explicit. (DUH!)

Is it working in your browser?
Trudye

SarkMan · Dec 8, 2003

yes. It works fine in my browser. What version are you using?
I am using IE 6.0

Trudye · Dec 8, 2003

oh boy that's scary. Yes I am usng IE 6.0. Could it be my Internet Host?

Trudye

SarkMan · Dec 8, 2003

Is it executing any asp. Try uploading a generic page to see if asp works.

like this
<% Response.write("ASP works on this server&quot

%>

Trudye · Dec 8, 2003

I decided not to use my script pgm this time thought it might me the problem. I used Notepad, pasted in your command and save it as asptest.asp.

I uploaded it and then called it up and I got the entire command displayed on the page. Just like this.

<% Response.write("ASP works on this server&quot

%>

Now I'm starting to think conspiracy theory, grassy knoll and all that (LOL).

I know it's something stupid I'm doing I just don't know what it is. Whatever it is I'll never forget it.

TEN

PS. Thanks for hanging in there with me.

MadJock · Dec 9, 2003

Looks like the package you have with your ISP doesn't give you ASP

There's a free ISP called brinkster (

http://www.brinkster.com)

that will give you free ASP web hosting), but it does show adverts.

My own website (below) is hosted via Brinkster too

Graeme

website:

http://www.graeme-taylor.co.uk

Trudye · Dec 9, 2003

Hi MadJock,

I'm sorry I found out what the problem was last night. My domain name was not setup for my IH's server it was still pointing to my old IH. That's the good news the bad news is I have to wait 72 hours for the change to take full effect.

Thanks for the heads up on Brinkster. Do they support FrontPage as well? If so I am so there.

Thanks so much for all your help.
Happy holidays to you and yours,
Be well,
Trudye

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Cannot get ASP page to display 1

Trudye

Programmer

Trudye

Programmer

MadJock

Programmer

ranta

Programmer

GaryC123

Programmer

Trudye

Programmer

SarkMan

Programmer

Trudye

Programmer

SarkMan

Programmer

Trudye

Programmer

SarkMan

Programmer

Trudye

Programmer

SarkMan

Programmer

Trudye

Programmer

MadJock

Programmer

Trudye

Programmer

Similar threads

Part and Inventory Search

Sponsor