<%
'argument = Request.QueryString("scelta")
'If IsNumeric(argument) Then
'argument = Cint(argument)
'else
argument = 6
'End If
'If argument =0 Or argument > 9 Then
'argument = 1
'End If
%>
Ristorante Sibilla
<% if argument = 3 Then %>
<% else %>
<% end if %>
<%
catid = Request.QueryString("catid")
If Len(catid) = 0 Or Not IsNumeric(catid) Then
catid = 1
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(db_path)
%>
<%
selectSQL = "SELECT * FROM tbl_categories WHERE category_id = " & catid
Set selectRS = Conn.Execute(selectSQL)
' If Not selectRS.EOF Then
' Do Until selectRS.EOF
%>
" alt="<%=selectRS("category_name")%>">
<%
' selectRS.MoveNext
' Loop
' End If
selectRS.Close
Set selectRS = nothing
%>
<%
sql = "SELECT * FROM tbl_photos " &_
"WHERE category_id = " & catid
Set Rs = Conn.Execute(sql)
If Not Rs.EOF Then
%>
