<%End If%> <% MyConnection.Close Set MyConnection = Nothing If Err Then '*** send email notice Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "www.bauerexecutivesearch.com" Mailer.FromName = "Server" Mailer.FromAddress = "admin@bauerexecutivesearch.com" Mailer.AddRecipient "Bret", "bret@1storbit.com" Mailer.Subject = "Bauer ERROR" Mailer.BodyText = "Time: " & Now & vbCRLF & _ "IP Address: " & Request.ServerVariables("REMOTE_HOST") & vbCRLF & _ "Referrer: " & Request.ServerVariables("HTTP_REFERER") & vbCRLF & _ "URL: " & Request.ServerVariables("SCRIPT_NAME") & vbCRLF & _ "Error Helpfile: " & Err.helpfile & vbCRLF & _ "Error HelpContect: " & Err.helpcontext & vbCRLF & _ "Error Source " & Err.source & vbCRLF & _ "Error Description: " & Err.description & vbCRLF Mailer.SendMail Set Mailer = Nothing End If %>



EventsCalendar

click here to see ongoing events
 

<% '*** get connection MyConnectionString="DSN=htcnycSQL;UID=htcnyc;PWD=monsignor" Set MyConnection = Server.CreateObject("ADODB.Connection") MyConnection.Open(MyConnectionString) Set cmdTemp = Server.CreateObject("ADODB.Command") cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = MyConnection %> <% Function showDate(dval) If dval = 1 then showDate = "Sunday" End If If dval = 2 then showDate = "Monday" End If If dval = 3 then showDate = "Tuesday" End If If dval = 4 then showDate = "Wednesday" End If If dval = 5 then showDate = "Thursday" End If If dval = 6 then showDate = "Friday" End If If dval = 7 then showDate = "Saturday" End If End Function Set rsCRC = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "Select * from CRCEVENTS WHERE ongoing is null ORDER BY event_date, event_name desc" rsCRC.open cmdTemp, ,1,1 While not rsCRC.EOF varEventID = rsCRC("event_ID") varName = rsCRC("event_name") varDate = rsCRC("event_date") varTime = rsCRC("event_time") varDescription = rsCRC("event_description") varCost = rsCRC("event_cost") varPlace = rsCRC("event_place") varAddress = rsCRC("event_address") varCity = rsCRC("event_city") varState = rsCRC("event_state") varContact = rsCRC("event_contact") varEmail = rsCRC("event_email") varImage = rsCRC("event_image") varInstructions = rsCRC("event_instructions") varLimit = rsCRC("event_limit") varAgegroup = rsCRC("event_agegroup") 'Calculate how many people have signed up for the event. Set rsCRC1 = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "select sum(quantity) EventCount, count(quantity) Count2 from CRCMEMBERSEVENTS where event_id = " & varEventID rsCRC1.open cmdTemp, ,1,1 varCount2 = rsCRC1("Count2") 'If there are no signups for the event, then set the count to 0. If varCount2 > 0 Then varEventCount = rsCRC1("EventCount") Else varEventCount = 0 End If rsCRC.MoveNext 'Only display event if its date hasn't passed. If varDate >= date Then 'varRealDescription = Replace(varDescription, Chr(13), "

") varRealDescription = varDescription %> <%=showDate(WeekDay(varDate))%>,<%=varDate%>
<%If len(varImage)>0 Then%>  <%Else%> <%End If%>

<%=varName%>

Suggested Peer Group: <%=varAgegroup%>

<%=varRealDescription%>

Time: <%=varTime%>
Where: <%=varPlace%>, <%=varAddress%>
Price: $<%=varCost%>
For info contact: <%=varContact%> - <%=varEmail%>
<%If varInstructions <> "" and varInstructions <> "None" Then%>

Special Instructions: <%=varInstructions%>
<%End If%>
<% 'Indicate that event is sold out if # of signups has reached the limit for that event. If varEventCount < varLimit Then%> SIGN ME UP FOR THIS EVENT

<%Else%> <%End If%>

_________________________________________
 

<%End If%><%WEnd%>

:::
top

___________________________________


<% '*** get connection MyConnectionString="DSN=htcnycSQL;UID=htcnyc;PWD=monsignor" Set MyConnection = Server.CreateObject("ADODB.Connection") MyConnection.Open(MyConnectionString) Set cmdTemp = Server.CreateObject("ADODB.Command") cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = MyConnection %> <% Function showDate(dval) If dval = 1 then showDate = "Sunday" End If If dval = 2 then showDate = "Monday" End If If dval = 3 then showDate = "Tuesday" End If If dval = 4 then showDate = "Wednesday" End If If dval = 5 then showDate = "Thursday" End If If dval = 6 then showDate = "Friday" End If If dval = 7 then showDate = "Saturday" End If End Function rsCRC.close cmdTemp.CommandText = "Select * from CRCEVENTS WHERE ongoing = 1 ORDER BY event_name" rsCRC.open cmdTemp, ,1,1 If not rsCRC.EOF Then%> OngoingEvents
back to the events calendar

<% While not rsCRC.EOF varName = rsCRC("event_name") varDate = rsCRC("event_date") varTime = rsCRC("event_time") varDescription = rsCRC("event_description") varCost = rsCRC("event_cost") varPlace = rsCRC("event_place") varAddress = rsCRC("event_address") varCity = rsCRC("event_city") varState = rsCRC("event_state") varContact = rsCRC("event_contact") varEmail = rsCRC("event_email") varImage = rsCRC("event_image") rsCRC.MoveNext If varDate >= date Then 'varRealDescription = Replace(varDescription, Chr(13), "

") varRealDescription = varDescription %> <%If len(varImage)>0 Then%>  <%Else%> <%End If%>
<%=varName%>
<%=varRealDescription%>

Where:
<%=varPlace%>, <%=varAddress%>
Price:
$<%=varCost%>
For info contact:
<%=varContact%> - <%=varEmail%>

_________________________________________

<%End If%><%WEnd%>

:::
top

 

  home :: who we are :: what we do :: get involved :: events calendar :: contact us :: photo albums :: email list


© 2005 CRC. All rights reserved.