 |
 |
 |
|
<%
ChocQuery = "SELECT * FROM Program INNER JOIN Exhibit ON Program.ProgramExhibit = Exhibit.ExhibitID WHERE Exhibit.ExhibitID=70 ORDER BY Program.ProgramStartDate;"
' Setup a data connection to create a Client recordset
' Open data connection
Set Connect = Server.CreateObject("ADODB.Connection")
'Connect.Open ODBCName
OpenDB dbpath, Connect
' Generate the recordsets
Set AudienceRS = Server.CreateObject("ADODB.Recordset")
'AudienceRS.Open AudienceQuery, Connect, adOpenDynamic, adLockOptimistic
AudienceRS.Open ChocQuery, Connect, adOpenDynamic, adLockOptimistic
%><%
If AudienceRS.EOF Then
Response.Write "Sorry, there are no programs currently available.
"
End If
Do Until AudienceRS.EOF
strTitle = AudienceRS("ProgramTitle")
strSubTitle = AudienceRS("ProgramSubTitle")
strDescription = AudienceRS("ProgramDescription")
strImageName = AudienceRS("ProgramImageName")
strImageHeight = AudienceRS("ProgramImageHeight")
strImageWidth = AudienceRS("ProgramImageWidth")
strDate = AudienceRS("ProgramDateText")
strTime = AudienceRS("ProgramTime")
StrFree = AudienceRS("ProgramFree")
StrPrices = AudienceRS("ProgramPrices")
strType = AudienceRS("ProgramType")
strAge = AudienceRS("ProgramAge")
strAudience = AudienceRS("ProgramAudience")
strPreReg = AudienceRS("ProgramPre-Registration")
strSponsorName = AudienceRS("ProgramSponsorName")
strSponsorDescrip = AudienceRS("ProgramSponsorDescription")
strSponsorLink = AudienceRS("ProgramSponsorLink")
strSponsorImage = AudienceRS("ProgramSponsorLogoImage")
strSponsorWidth = AudienceRS("ProgramSponsorLogoWidth")
strSponsorHeight = AudienceRS("ProgramSponsorLogoHeight")
Dim strListTypes
strListTypes = Split(strType, ",", -1, 1)
%>
<%
AudienceRS.MoveNext
loop
%>
|
|
|
|
 |
|
|
 |
