<%
IntpageId = request.QUERYSTRING("id")
'Establish a connection with data source.
strConnectionString1 = "Driver={Mysql};Server=sql1.jnb2.host-h.net; Database=banana_db1; UID=bananaw_1; PWD=XDAsb3h8"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open strConnectionString1
StrSQL2 ="Select * from events where cat= "&IntpageId
set Rs3 = cnn.execute(StrSQL2)
%>
 |
|
( Weekly) Cocktail happy hour - 1700 - 1800 everyday |
<% Do while not Rs3.EOF %>
<%
intcount = 0
Do While Not intcount = 1
%>
|
|
 .jpg" alt="" border="0">
|
<%= Rs3("Head") %> <%= Rs3("Desc1") %>
Time: <%= Rs3("Time1") %>
Date: <%= Rs3("Day1") %>
|
<%
IntCount = IntCount + 1
Rs3.movenext
if Rs3.eof then
exit do
end if
loop %>
<%
if Rs3.eof then
exit do
end if
loop
%>
|
|
|
|
