|
lsakizada
New Member
USA
90 Posts |
 Posted - 11 February 2006 : 10:07:21
|
Sorry to spam you guys but the solution for this is prety simple.
Here is the solution in case you will need it:
####(1)####
in cal_post.asp select the last record of this recurring event
and place it on top of the page:
if strRqMethod = "EditEvent" then
lastDate = ""
strSQL2 = "SELECT TOP 1 EVENT_DATE FROM " & strTablePrefix & "CAL_EVENTS WHERE TOPIC_ID = " & chkString(strRqForumID,"SQLString") & "ORDER BY EVENT_DATE DESC"
set rsCal2 = Server.CreateObject("ADODB.Recordset")
rsCal2.open StrSql2, My_conn
If not rsCal2.EOF then lastDate = rsCal2("EVENT_DATE")
rsCal2.close
set rsCal2 = nothing
end if
####(2)####
in cal_post.asp find this line(mine modified a little..):
Response.write "<td><input type=""text"" name=""Event_End"" value=""" & Event_Date & """ maxlength=""20"" size=""20"" style=""width: 160px""></td></tr>"
Replace it with this if statement:
if strRqMethod = "EditEvent" then
Response.write "<td><input type=""text"" name=""Event_End"" value=""" & strtodate(lastDate)& """ maxlength=""20"" size=""20"" style=""width: 160px""></td></tr>"
else
Response.write "<td><input type=""text"" name=""Event_End"" value=""" & Event_Date & """ maxlength=""20"" size=""20"" style=""width: 160px""></td></tr>"
end if
Thats it! once you post the modified event all will work as excpected. |
Edited by - lsakizada on 11 February 2006 10:09:30 |
 |
|
Topic Locked
