<%response.ContentType="text/HTML"%> <% 'Call ShowMeTheFormItems Dim PageTitle Dim GetVenueInfoSQL Dim venue_rs Dim VenueName Dim VenueDescription Dim VenueContactName Dim VenueContactEmail Dim VenueContactPhone Dim VenueContactFax Dim VenueLocation Dim ShowDates Dim tempStr Dim GetCostInfoSQL Dim CostInfoHTML Dim NowDateStr Dim cost_rs Dim RegistrationDescription Session("EmailNotDuplicate") = "" Session("RegistrantID") = 0 Session("ThankYou") = "" 'NowDateStr = "#" & Month(Now) & "/" & Day(Now) & "/" & Year(Now) & "#" NowDateStr = "'" & Year(Now) & "/" & Month(Now) & "/" & Day(Now) & "'" VenueID = Request.QueryString("id") Response.Flush If VenueID = "" Then Call NotAValidVenue End If Sub NotAValidVenue %> Redirecting to event site - Please wait...

Redirecting to event site - Please wait...
<% Response.End End Sub Call ConnectToDB() GetVenueInfoSQL = "SELECT * FROM Venue_tbl WHERE VenueID = " & VenueID 'Response.Write GetVenueInfoSQL & "
" Set venue_rs = Server.CreateObject("ADODB.Recordset") venue_rs.Open GetVenueInfoSQL, objConn, 0, 1 If venue_rs.EOF = True Then Call CloseDB() Call NotAValidVenue End If If venue_rs.EOF = False Then VenueName = venue_rs("VenueName") VenueDescription = venue_rs("VenueDescription") tempStr = VenueDescription Call ReplaceSpecial(tempStr) VenueDescription = tempStr VenueContactName = venue_rs("VenueContactName") VenueContactEmail = venue_rs("VenueContactEmail") VenueContactPhone = venue_rs("VenueContactPhone") VenueContactFax = venue_rs("VenueContactFax") VenueLocation = venue_rs("VenueLocation") tempStr = VenueLocation Call ReplaceSpecial(tempStr) VenueLocation = tempStr ShowDates = venue_rs("ShowDates") tempStr = ShowDates Call ReplaceSpecial(tempStr) ShowDates = tempStr End If Call BuildCostInfoTable Call CloseDB() PageTitle = Replace(VenueName,"'","&rsquo") PageTitle = Replace(PageTitle,"""",""") Sub ReplaceSpecial(tempStr) tempStr = Replace(tempStr,CHR(13),"
") tempStr = Replace(tempStr," "," ") End Sub Sub BuildCostInfoTable CostInfoHTML = "" & _ "" & _ "" & _ "" & _ "" GetCostInfoSQL = "SELECT * FROM RegistrationType_tbl WHERE VenueID = " & VenueID & " " & _ "and " & NowDateStr & " >= RegistrationActiveDateStart " & _ "and " & NowDateStr & " <= RegistrationActiveDateEnd " & _ "and Active = 1 ORDER BY RegistrationCost" 'Response.Write GetCostInfoSQL & "
" Set cost_rs = Server.CreateObject("ADODB.Recordset") cost_rs.Open GetCostInfoSQL, objConn, 0, 1 If cost_rs.EOF = true Then CostInfoHTML = "" End If While Not cost_rs.EOF = True tempStr = cost_rs("RegistrationDescription") Call ReplaceSpecial(tempStr) RegistrationDescription = tempStr Dim RegAmount If cost_rs("RegistrationCost") = 0 Then RegAmount = "Free!" Else RegAmount = "$" & FormatNumber(cost_rs("RegistrationCost"),2) End If CostInfoHTML = CostInfoHTML & "" & _ "" & _ "" & _ "" & _ "" & CHR(13) cost_rs.MoveNext WEND If CostInfoHTML <> "" Then CostInfoHTML = CostInfoHTML & "
Registration CostRegistration TypeDescription
" & RegAmount & "" & cost_rs("RegistrationType") & "" & RegistrationDescription & "

" End If End Sub %> <%=PageTitle%>

<%=VenueName%>

<%If CostInfoHTML <> "" Then%> <%End If%>
 
What:  <%=VenueDescription%>
 
Where:  <%=VenueLocation%>
 
When:  <%=ShowDates%>
 
How much does this event cost? 
You have choices. They are...
<%=CostInfoHTML%>
>