%@ LANGUAGE="VBSCRIPT"%>
<% Option Explicit %><%
Response.Buffer = true
Dim conn, rsConfList, sqlConfList, sqlSuffix, rsSuffix, sqlStates, rsStates, rsSpecialty, sqlSpecialty, rsHowHeard, sqlHowHeard
Dim strCrusadeMeetingId
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=ncme_crusade"
Set rsConfList = Server.CreateObject("ADODB.Recordset")
sqlConfList = "SELECT CRUSADEMeetings.CrusadeMeetingId, CRUSADEMeetings.MeetingCity, Venue.VenueName, Venue.VenueAddress, Venue.VenueAddress1, Venue.VenueAddress2, Venue.VenueAddress3, Venue.VenueCity, Venue.VenueState, Venue.VenueZipcode, CRUSADEMeetings.MeetingDate, CRUSADEMeetings.LectureTime, CRUSADEMeetings.Active FROM Venue INNER JOIN CRUSADEMeetings ON Venue.VenueId = CRUSADEMeetings.VenueId WHERE (((CRUSADEMeetings.Active)=True));"
rsConfList.open sqlConfList,conn,3,3
Set rsStates = Server.CreateObject("ADODB.Recordset")
sqlStates = "SELECT * FROM L_states"
rsStates.Open sqlStates,conn,1,3
%>
CRUSADE CME - Credit Designation
<%
conn.Close
Set conn = Nothing
%>