 |
|
|
<%
Response.Buffer = True
Dim curYear, CurMonth, strMonth, conn, rs
curDate = FormatDateTime(Date())
curYear = Year(curDate)
curMonth = Month(curDate)
strMonth = MonthName(DatePart("m",date()))
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.mappath("db/bridalshows.mdb"))
sql = "select * from shows ORDER BY s_year asc, s_month asc, s_day asc" ' if you want current month only - WHERE shows.s_year =" & curYear & " AND shows.s_month =" & curMonth & "
set rs = conn.Execute(sql)
set conn2=Server.CreateObject("ADODB.Connection")
conn2.Provider="Microsoft.Jet.OLEDB.4.0"
conn2.Open(Server.mappath("db/admin.mdb"))
set rsLayout = Server.CreateObject("ADODB.Recordset")
rslayout.Open "select * from tblBridalshowsPage", conn2
%>
<%=rsLayout("title1")%>
<%if rs.EOF then
Response.write("There are currently no listings for your selection.
Please push the back button and select another category.")
end if
%>
<%do while not rs.EOF%>
<%for each x in rs.Fields%>
<%if x.name = "s_month" then%>
<%response.write MonthName(x.value)%>
<%elseif x.name = "s_day" then%>
<%response.write x.value%>
|
<%elseif x.name = "title" then%>
<%response.write x.value%>
|
<%elseif x.name = "title2" then%>
| |
<%response.write x.value%> |
<%elseif x.name = "s_state" then%>
| |
State: |
<%response.write x.value%>
|
<%elseif x.name = "location" then%>
| |
Location:
|
<%response.write x.value%>
|
<%elseif x.name = "admission" and (x.value <> "" and x.value <> "N/A") then%>
| |
Ticket Cost: |
<%response.write x.value%>
|
<%elseif x.name = "s_time" then%>
| | Hours:
|
<%response.write x.value%>
|
<%elseif x.name = "contact" then%>
| |
Information: |
<%response.write x.value%>
|
<%elseif x.name = "website" and (x.value <> "" and x.value <> "N/A") then%>
| |
Web Site: |
|
<%elseif x.name = "email"then%>
<%if trim(x.value & "") <> "" then %>
| |
Email: |
<%response.write("Email
")%>
|
| |
|
<%else
%>
| |
|
<%end if%>
<%end if
next%>
<% rs.MoveNext %>
<%Loop
conn.close%>
| |
