/secure/EventDBDetails.asp

https://github.com/barrynovak5/SWOGC · ASP · 77 lines · 55 code · 16 blank · 6 comment · 0 complexity · fa437daeab7af4c292f9986f39cfe543 MD5 · raw file

  1. <!--#include file="adovbs.inc"-->
  2. <%
  3. Function LoadEventDetails(EventId, ByRef EventTypeId, ByRef ReceiptPageUrl, ByRef ReceiptPageTitle, ByRef ReceiptPageEnabled, ByRef EventName, _
  4. ByRef EventDescription, ByRef PaymentFormHeader, ByRef ReceiptFormHeader, ByRef ReceiptEmailHeader, _
  5. ByRef ReceiptFormHeader2, ByRef ReceiptFormFooter2, _
  6. ByRef PaymentFormFooter, ByRef ReceiptFormFooter, ByRef ReceiptEmailFooter, ByRef PaymentFormHeader2, ByRef PaymentFormFooter2)
  7. set conn= Server.CreateObject("ADODB.Connection")
  8. set cmd = Server.CreateObject("ADODB.Command")
  9. set rs = Server.CreateObject("ADODB.RecordSet")
  10. conn.Open "FourC"
  11. rs.CursorType = adOpenForwardOnly
  12. rs.LockType = adLockOptimistic
  13. cmd.ActiveConnection = conn
  14. ' From http://support.microsoft.com/kb/200190
  15. 'If a SQL statement with question marks is specified, then the
  16. 'CommandType is adCmdText. If a query name is specified, then
  17. 'the CommandType is adCmdStoredProc.
  18. cmd.CommandText = "Events_vw"
  19. cmd.CommandType = adCmdStoredProc
  20. 'Create the parameter and populate it.
  21. Set param = cmd.CreateParameter("@EventId" , adInteger, adParamInput, 0, 0)
  22. cmd.Parameters.Append param
  23. cmd.Parameters("@EventId") = EventId
  24. 'Open and display the Recordset.
  25. rs.Open cmd
  26. If Not rs.EOF Then
  27. ReceiptPageUrl = rs.Fields.Item("ReceiptPageURL") 'http://www.4c.org
  28. ReceiptPageTitle = rs.Fields.Item("ReceiptPageTitle")
  29. DefaultReceiptPageTitle = rs.Fields.Item("DefaultReceiptPageTitle")
  30. DefaultReceiptPageUrl = rs.Fields.Item("DefaultReceiptPageUrl")
  31. If ReceiptPageTitle = "" OR ReceiptPageUrl = "" Then
  32. If DefaultReceiptPageTitle = "" OR DefaultReceiptPageUrl = "" Then
  33. ReceiptPageEnabled = "false"
  34. Else
  35. ReceiptPageEnabled = "true"
  36. ReceiptPageTitle = DefaultReceiptPageTitle
  37. ReceiptPageUrl = DefaultReceiptPageUrl
  38. End If
  39. Else
  40. ReceiptPageEnabled = "true"
  41. End If
  42. EventName = rs.Fields.Item("EventName")
  43. EventTypeId = rs.Fields.Item("EventTypeId")
  44. EventDescription = rs.Fields.Item("EventDescription")
  45. PaymentFormHeader = rs.Fields.Item("PaymentFormHeader")
  46. PaymentFormFooter = rs.Fields.Item("PaymentFormFooter")
  47. PaymentFormHeader2 = rs.Fields.Item("PaymentFormHeader2")
  48. PaymentFormFooter2 = rs.Fields.Item("PaymentFormFooter2")
  49. ReceiptFormHeader = rs.Fields.Item("ReceiptFormHeader")
  50. ReceiptFormFooter = rs.Fields.Item("ReceiptFormFooter")
  51. ReceiptFormHeader2 = rs.Fields.Item("ReceiptFormHeader2")
  52. ReceiptFormFooter2 = rs.Fields.Item("ReceiptFormFooter2")
  53. ReceiptEmailHeader = rs.Fields.Item("ReceiptEmailHeader")
  54. ReceiptEmailFooter = rs.Fields.Item("ReceiptEmailFooter")
  55. End If
  56. rs.Close
  57. set rs = nothing
  58. set cmd = nothing
  59. set conn = nothing
  60. End Function
  61. %>