/new/administrator/event-save.asp

https://github.com/akabeko/fusionexcel · ASP · 72 lines · 53 code · 19 blank · 0 comment · 3 complexity · d68e5dec81f369b10bb8c5a0d9014703 MD5 · raw file

  1. <%
  2. Response.CharSet = "utf-8"
  3. Server.ScriptTimeout = 600
  4. %>
  5. <!--#include file="../libraries.asp" -->
  6. <%
  7. Dim sql, event_id, RecordSet
  8. if Request.ServerVariables("REQUEST_METHOD") <> "POST" then
  9. Response.Redirect "event-edit.asp?id=" & Request("id") & "&action=" & Request("action") & "&error=not_supported"
  10. end if
  11. event_id = 0
  12. if Request("id") <> "" and IsNumeric(Request("id")) and CInt(Request("id")) > 0 then
  13. event_id = CInt(Request("id"))
  14. end if
  15. Call SetConnection(GetEventsDbPath())
  16. Call OpenDatabase()
  17. Dim sameSequence
  18. if Request("submit") = "Add" then
  19. sql = "SELECT * FROM events"
  20. call CreateRecordSet(RecordSet, sql)
  21. RecordSet.AddNew
  22. RecordSet.Fields("created_by") = Session("login")
  23. RecordSet.Fields("created") = Now()
  24. else
  25. sql = "SELECT * FROM events WHERE event_id = " & event_id
  26. call CreateRecordSet(RecordSet, sql)
  27. end if
  28. RecordSet.Fields("publish") = Request("publish")
  29. RecordSet.Fields("event_date") = Request("event_date")
  30. RecordSet.Fields("event_country") = Request("event_country")
  31. RecordSet.Fields("event_city") = Request("event_city")
  32. RecordSet.Fields("event_name") = Request("event_name")
  33. RecordSet.Fields("event_details") = Request("event_details")
  34. RecordSet.Fields("event_venue") = Request("event_venue")
  35. RecordSet.Fields("event_country_bm") = Request("event_country_bm")
  36. RecordSet.Fields("event_city_bm") = Request("event_city_bm")
  37. RecordSet.Fields("event_name_bm") = Request("event_name_bm")
  38. RecordSet.Fields("event_details_bm") = Request("event_details_bm")
  39. RecordSet.Fields("event_venue_bm") = Request("event_venue_bm")
  40. RecordSet.Fields("event_country_chi") = Request("event_country_chi")
  41. RecordSet.Fields("event_city_chi") = Request("event_city_chi")
  42. RecordSet.Fields("event_name_chi") = Request("event_name_chi")
  43. RecordSet.Fields("event_details_chi") = Request("event_details_chi")
  44. RecordSet.Fields("event_venue_chi") = Request("event_venue_chi")
  45. RecordSet.Fields("last_modified_by") = Session("login")
  46. RecordSet.Fields("last_modified") = Now()
  47. RecordSet.Update
  48. event_id = RecordSet("event_id")
  49. RecordSet.Close
  50. call CloseRecordSet(RecordSet)
  51. call ReindexEvents(Year(CDate(Request("event_date"))))
  52. Response.Redirect("event-edit.asp?action=edit&id=" & event_id)
  53. %>