event detail

<%@LANGUAGE="VBSCRIPT"%> <% Dim rsEventdisc__MMColParam rsEventdisc__MMColParam = "1" If (Request.QueryString("eventDiscNo") <> "") Then rsEventdisc__MMColParam = Request.QueryString("eventDiscNo") End If %> <% Dim rsEventdisc Dim rsEventdisc_numRows Set rsEventdisc = Server.CreateObject("ADODB.Recordset") rsEventdisc.ActiveConnection = MM_CnnEvents_STRING rsEventdisc.Source = "SELECT * FROM tbEventDiscription WHERE eventDiscId = " + Replace(rsEventdisc__MMColParam, "'", "''") + "" rsEventdisc.CursorType = 0 rsEventdisc.CursorLocation = 2 rsEventdisc.LockType = 1 rsEventdisc.Open() rsEventdisc_numRows = 0 %> event detail

<% If Not rsEventdisc.EOF Or Not rsEventdisc.BOF Then %>

<%=(rsEventdisc.Fields.Item("eventTitle").Value)%>

<% End If ' end Not rsEventdisc.EOF Or NOT rsEventdisc.BOF %>

<% If Not rsEventdisc.EOF Or Not rsEventdisc.BOF Then %> <%=(rsEventdisc.Fields.Item("eventDiscription").Value)%> <% End If ' end Not rsEventdisc.EOF Or NOT rsEventdisc.BOF %> <% If rsEventdisc.EOF And rsEventdisc.BOF Then %>

sorry there was no data for this event

<% End If ' end rsEventdisc.EOF And rsEventdisc.BOF %> pay with PayPal