Locations
Register now! Space is limited.
Seminar Dates |
Location |
Hotel |
Room Rate |
Room Block
Cut-Off |
<%
Dim MDate,location,ID,Single1,HotelLink1,Double1,spacebar
flag=false
set rs_evaluate = server.createobject("adodb.recordset")
details = "SELECT BookingCode,Fax,SortOrder,Date,location,locationTip,ID,CDate,Hotel,Address1,Address2,City,State,Zip,Direct,TollFree,Single,Double,Map,HotelLink FROM Meeting order by SortOrder"
rs_evaluate.Open details , con
while not rs_evaluate.EOF
BookingCode=""
MDate = ""
Location = ""
ID = ""
CDate1 = ""
Hotel = ""
Address1 = ""
Address2 = ""
City = ""
State1 = ""
Direct = ""
TollFree = ""
Zip = ""
Single1 = ""
Double1 = ""
Map = ""
HotelLink1 = ""
spacebar="0"
locationTip=""
Fax=""
MDate = rs_evaluate("Date")
Location = rs_evaluate("Location")
ID = rs_evaluate("ID")
CDate1 = rs_evaluate("CDate")
Hotel = rs_evaluate("Hotel")
Address1 = rs_evaluate("Address1")
Address2 = rs_evaluate("Address2")
City = rs_evaluate("City")
State1 = rs_evaluate("State")
Direct = rs_evaluate("Direct")
TollFree = rs_evaluate("TollFree")
Fax = rs_evaluate("Fax")
Zip = rs_evaluate("Zip")
Single1 = rs_evaluate("Single")
Double1 = rs_evaluate("Double")
Map = rs_evaluate("Map")
HotelLink1 = rs_evaluate("HotelLink")
BookingCode = rs_evaluate("BookingCode")
locationTip = rs_evaluate("locationTip")
if MDate="" then MDate=" "
if Location ="" or Location ="TBD" then Location=" "
if Location ="Final location TBD" then spacebar="1"
if ID ="" then ID=" "
if CDate1 ="" then CDate1=" "
if Hotel ="" then Hotel=" "
if Single1 = "" then Single1=""
if Double1 ="" then Double1=""
if Map ="" then Map=" "
if HotelLink1 ="" then HotelLink1=""
if BookingCode ="" then BookingCode=""
if locationTip="" then locationTip=""
%>
<%=MDate%> |
<% if len (Map) >1 then %>
<%=location%>
<%=locationTip%>
Regional
Map
<% else%>
<%=location%>
<%=locationTip%>
<% end if%>
|
<% if len(HotelLink1) >1 then %>
<%=Hotel%>
<% else %>
<% if len(Hotel) >1 then %>
<%=Hotel%>
<%end if%>
<% end if %>
<% if Address1 <>"" then %>
<%=Address1%>
<%end if%>
<% if Address2 <>"" then %>
<%=Address2%>
<%end if %>
<% if City <>"" then %>
<%=City%>,
<%end if %>
<% if State1 <>"" then %>
<%=State1%>
<%end if %>
<%=Zip%>
<% if TollFree <>"" then %>
Toll Free: <%=TollFree%>
<%end if %>
<% if Direct <>"" then %>
Direct: <%=Direct%>
<%end if %>
<% if Fax <>"" then %>
Fax: <%=Fax%>
<%end if %>
<% if spacebar ="1" then %>
<% end if %>
<% if Single1 <>"TBD" then %> |
Single:<%=Single1%>
Double:<%=Double1%> |
<%else%>
TBD |
<%end if%>
<%=CDate1%> |
<%
rs_evaluate.MoveNext
wend
rs_evaluate.close
%>
|
|
