I am unable to spot the error in this query:
<% Dim strConnection, strQuery, Title, StartDate, EndDate, StartTime, EndTime, Address1, Address2, City, State, Website, Info
if Request.Form("evTitle") <> "" then Title = chr(39) & Request.Form("evTitle") & chr(39)...