Hey guys, I am new to asp. here's part of the code for an ASP calendar and I am having problem to make it work.
I
am able to open the calendar.asp page and when I click on the button to
"Schedule Appointment" it pulls up the form page to add an event BUT when I
fill out the fields and click "Schedule Appointment" button it says can't find
the page. In other words it doesn't do anything.
So my question is, do I need to change anything in the code to make it
work? I put all of the files (including the users.mdb database) in one
directory on the server so it's not the incorrect path problem, I
suppose.
I would really appreciate if someone could answer my question.
Thanks,
Jessy
-------------------------------

<%@ LANGUAGE=VBSCRIPT %>
<%Option Explicit%>
<!--#include file="../../cal/adovbs.inc"-->

<%
If Request.Form("AddEvent") = "Schedule Appointment" Then
Response.Redirect("add_event.asp")
End If

If Request.Form("EditEvent") = "Edit Event" Then
Response.Redirect("edit_event.asp")
End If

Dim DB_CONNECTIONSTRING
Dim objRecordset

DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("users.mdb") & ";"

Set objRecordset = Server.CreateObject("ADODB.Recordset")
objRecordset.Open "calendar", DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic, adCmdTable
%>

<%
Function GetDaysInMonth(iMonth, iYear)
Select Case iMonth
Case 1, 3, 5, 7, 8, 10, 12
GetDaysInMonth = 31
Case 4, 6, 9, 11
GetDaysInMonth = 30
Case 2
If IsDate("February 29, " & iYear) Then
GetDaysInMonth = 29
Else
GetDaysInMonth = 28
End If
End Select
End Function

Function GetWeekdayMonthStartsOn(iMonth, iYear)
GetWeekdayMonthStartsOn = WeekDay(CDate(iMonth & "/1/" & iYear))
End Function

Function SubtractOneMonth(dDate)
Dim iDay, iMonth, iYear
iDay = Day(dDate)
iMonth = Month(dDate)
iYear = Year(dDate)

If iMonth = 1 Then
iMonth = 12
iYear = iYear - 1
Else
iMonth = iMonth - 1
End If

If iDay > GetDaysInMonth(iMonth, iYear) Then iDay = GetDaysInMonth(iMonth, iYear)

SubtractOneMonth = CDate(iMonth & "-" & iDay & "-" & iYear)
End Function

Function AddOneMonth(dDate)
Dim iDay, iMonth, iYear
iDay = Day(dDate)
iMonth = Month(dDate)
iYear = Year(dDate)

If iMonth = 12 Then
iMonth = 1
iYear = iYear + 1
Else
iMonth = iMonth + 1
End If

If iDay > GetDaysInMonth(iMonth, iYear) Then iDay = GetDaysInMonth(iMonth, iYear)

AddOneMonth = CDate(iMonth & "-" & iDay & "-" & iYear)
End Function


Dim dDate ' Date we're displaying calendar for
Dim iDIM ' Days In Month
Dim iDOW ' Day Of Week that month starts on
Dim iCurrent ' Variable we use to hold current day of month as we write table
Dim iPosition ' Variable we use to hold current position in table

If IsDate(Request.QueryString("date")) Then
dDate = CDate(Request.QueryString("date"))
Else
If IsDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) Then
dDate = CDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year"))
Else
dDate = Date()

If Request.QueryString.Count <> 0 Then
Response.Write "The date you picked was not a valid date. The calendar was set to today's date.<BR><BR>"
End If
End If
End If

iDIM = GetDaysInMonth(Month(dDate), Year(dDate))
iDOW = GetWeekdayMonthStartsOn(Month(dDate), Year(dDate))
%>

<html>

<center>

<table border="1" cellspacing="0" cellpadding="1">
<tr>

<td bgcolor="#9999CC" align="center" colspan="7">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right"><b><A HREF="../../cal/calendar.asp?date=<%= SubtractOneMonth(dDate) %>" style="color: #FFFFFF">&lt;--</A></b></TD>
<td align="center"><font color="#FFFFFF"><B><%= MonthName(Month(dDate)) & " " & Year(dDate) %></B></font></TD>
<td align="left"><b><A HREF="../../cal/calendar.asp?date=<%= AddOneMonth(dDate) %>" style="color: #FFFFFF">--&gt;</A></b></TD>
<td align="right" valign="top"><a href="http://www.4guysfromrolla.com"><img src="../../cal/close.gif" border="0"></a></td>
</tr>
</TABLE>
</td>
</tr>
<tr bgcolor="blue">

<td width="80" ALIGN="center" bgcolor="#999999"><B><font color="#FFFFFF">Sun</font></B></TD>

<td width="80" ALIGN="center" bgcolor="#999999"><B><font color="#FFFFFF">Mon</font></B></TD>

<td width="80" ALIGN="center" bgcolor="#999999"><B><font color="#FFFFFF">Tue</font></B></TD>

<td width="80" ALIGN="center" bgcolor="#999999"><B><font color="#FFFFFF">Wed</font></B></TD>

<td width="80" ALIGN="center" bgcolor="#999999"><B><font color="#FFFFFF">Thu</font></B></TD>

<td width="80" ALIGN="center" bgcolor="#999999"><B><font color="#FFFFFF">Fri</font></B></TD>

<td width="80" ALIGN="center" bgcolor="#999999"><B><font color="#FFFFFF">Sat</font></B></TD>
</tr>
<%
If iDOW <> 1 Then
Response.Write(vbTab & "<tr>" & vbCrLf)
iPosition = 1
Do While iPosition < iDOW
Response.Write(vbTab & vbTab & "<td>&nbsp;</td>" & vbCrLf)
iPosition = iPosition + 1
Loop
End If

'-- Write days of month in proper day slots --

iCurrent = 1
iPosition = iDOW

Do While iCurrent <= iDIM


'-- open the table row --

If iPosition = 1 Then
Response.Write(vbTab & "<tr>" & vbCrLf)
End If


'-- Write the date and subject --

Response.Write(vbTab & vbTab & "<td align=left valign=top height=60><b>" & iCurrent & "</b>")



If Not objRecordset.BOF Then
objRecordset.MoveFirst
Do Until objRecordset.EOF

If objRecordset.Fields("Year") = Year(dDate) Then
If objRecordset.Fields("Month") = Month(dDate) Then

If objRecordset.Fields("Day") = iCurrent Then
Response.Write("<br><font size=2><a href=" & Chr(34) & "display_event.asp?ID=" & objRecordset.Fields("ID") & Chr(34) & ">" & objRecordset.Fields("Subject") & "</a></font><br>")
End If

End If
End If

objRecordset.MoveNext

Loop

End If



Response.Write("</td>" & vbCrLf)


'-- Close the table row --

If iPosition = 7 Then
Response.Write vbTab & "</tr>" & vbCrLf
iPosition = 0
End If


'-- Increment variables --

iCurrent = iCurrent + 1
iPosition = iPosition + 1
Loop

If iPosition <> 1 Then
Do While iPosition <= 7
Response.Write(vbTab & vbTab & "<td>&nbsp;</td>" & vbCrLf)
iPosition = iPosition + 1
Loop
Response.Write vbTab & "</TR>" & vbCrLf
End If
%>
</table>


<%
objRecordset.Close
Set objRecordset = Nothing
%>

<%
Response.Write("<form action=" & Chr(34) & "calendar.asp" & Chr(34) & " method=" & Chr(34) & "post" & Chr(34) & ">" & Chr(10))
Response.Write("<input type=" & Chr(34) & "submit" & Chr(34) & " name=" & Chr(34) & "AddEvent" & Chr(34) & " value=" & Chr(34) & "Schedule Appointment" & Chr(34) & ">" & "&nbsp;&nbsp;")
Response.Write("</form>")
%>

</center>

</body>
</html>



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

<%@ LANGUAGE=VBSCRIPT %>
<%Option Explicit%>

<%
Dim DB_CONNECTIONSTRING
Dim objRecordset
Dim Added
%>

<!--#include file="../../cal/adovbs.inc"-->

<%
DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("users.mdb") & ";"

Set objRecordset = Server.CreateObject("ADODB.Recordset")
objRecordset.Open "calendar", DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic, adCmdTable

If Request.Form("btnAdd") = "Schedule Appointment" Then

objRecordset.AddNew

'-- Add records to database from form --

objRecordset.Fields("Subject") = Request.Form("txtSubject")
objRecordset.Fields("Message") = Request.Form("Message")
objRecordset.Fields("Day") = Request.Form("selDay")
objRecordset.Fields("Month") = Request.Form("selMonth")
objRecordset.Fields("Year") = Request.Form("selYear")
objRecordset.Fields("AddedBy") = Request.Form("txtAddedBy")
objRecordset.Fields("DateAdded") = Now()

objRecordset.Update

Added = "True"

End If

objRecordset.Close
Set objRecordset = Nothing

If Added = "True" Then
Response.Redirect("calendar.asp")
End If
%>

<html>

<center>

<form method="post" action="../../cal/add_event.asp">

<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>Day:

<select name="selDay">

<option value="1">1</option>
... ...
<option value="31">31</option>

</select></td>

<td>Month:

<select name="selMonth">

<OPTION VALUE="1">January</option>
... ...
<OPTION VALUE="12">December</option>

</select></td>

<td>Year:

<select name="selYear">

<option value="1999">1999</option>
.....
<option value="2004">2004</option>

</select></td>
</tr>
<tr>
<td colspan="3">&nbsp;</td>
</tr>
<tr>
<td colspan="3" align="center">Subject (optional):
<input type="text" name="txtSubject" size="35"></td>
</tr>
<tr>
<td colspan="3">&nbsp;</td>
</tr>
<tr>
<td colspan="3" align="center"><textarea name="Message" cols="40" rows="10"></textarea></td>
</tr>
<tr>
<td colspan="3">&nbsp;</td>
</tr>
<tr>
<td colspan="3" align="center">Your Name:
<input type="text" name="txtAddedBy" size="35" value="<%= Session("FirstName") & " " & Session("LastName")%>"></td>
</tr>
</table>

<p>

<input type="submit" name="btnAdd" value="Schedule Appointment">
&nbsp;&nbsp;<input type="Reset" name="btnReset" value="Clear">

</form>

</center>

</body>
</html>