here u go:
<%
if Request.Form("pword") <> "" then 'the password
Response.AddHeader "401.1 Unauthorized: ", "401.1"
Response.Write "<H2>HTTP Error 401</H2><P><STRONG>401.1 Unauthorized: Logon Failed</STRONG></P><P>This error indicates that the credentials passed to the server do not match the credentials required to log on to the server.</P>"
Response.Write "<center><a href='index.asp'>Back to Calendar</a> </center>"
Response.End
End if
Function ChkString(string)
if string = "" then string = " "
ChkString = Replace(string, "'", "''")
End Function
set my_conn= Server.CreateObject("ADODB.Connection")
'my_Conn.Open "DSN=schedule2000"
cnpath="DBQ=" & server.mappath("webcalendar.mdb") 'or where ever you put the db.
my_conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
'Check to see if it's a new record to be added or an old one to update
StrSql= "Select * from calendar where dte = #" & Request("view_Date") & "#"
strSql= "select * from calendar where month(dte) = " & month(Request("view_date")) & " AND day(dte) = "&day(request("view_date"))
set rs = my_conn.Execute (StrSql)
if rs.BOF or rs.EOF then ' No records found. i.e. New record
StrSql2 ="INSERT INTO calendar (dte, text_field) values (#" & request("view_date") & "#, '" & chkString(request("txt")) & "')"
else ' Record found. i.e. update record.
StrSql2 = "UPDATE calendar SET calendar.dte = #" & request("view_date") & "#, text_field = '" & chkString(request("txt")) & "' WHERE id = " & rs("id")
End If
my_conn.Execute (strSql2)
'Check to see if it's a new record to be added or an old one to update
StrSql= "Select * from yearlycal where dte = #" & Request("view_Date") & "#"
stysql= "select * from yearlycal where month(dte) = " & month(Request("view_date")) & " AND day(dte) = "&day(request("view_date"))
set yearrs = createobject("adodb.recordset")
yearrs.cursortype=adOpenKeyset
'idcheckrs.open stud, myconn
yearrs.open stysql, my_conn
if yearrs.BOF or yearrs.EOF then ' No records found. i.e. New record
' response.write "nrf"
yearlysql ="INSERT INTO yearlycal (dte, yearlyevents) values (#" & request("view_date") & "#, '" & chkString(request("yearlyevents")) & "')"
else ' Record found. i.e. update record.
'response.write yearrs.recordcount
yearlysql = "UPDATE yearlycal SET yearlycal.dte = #" & request("view_date") & "#, yearlyevents = '" &chkString(request("yearlyevents")) &"' WHERE id = " & yearrs("id")
End If
my_conn.execute (yearlysql)
my_Conn.Close
set my_conn = nothing
'response.write strsql2 &"<br>"
'response.write yearlysql
Response.Redirect ("index.asp?view_date=" & request("view_date"))
%>
