%@language=VBScript%>
<%Option Explicit%>
Restaurants of Rome
<%
Dim strSQL
strSQL="SELECT RegCuisine.IDreg, RegCuisine.IDR, Restaurants.RName, Restaurants.near, Restaurants.Euro FROM Restaurants RIGHT JOIN RegCuisine ON Restaurants.IDR = RegCuisine.IDR"
Dim ref
ref= request.form("reg")
If (ref= 1 ) then
strSQL = strSQL & " WHERE RegCuisine.IDreg= 1"
ElseIf (ref= 2 ) then
strSQL = strSQL & " WHERE RegCuisine.IDreg= 2"
ElseIf (ref= 3 ) then
strSQL = strSQL & " WHERE RegCuisine.IDreg= 3"
ElseIf (ref= 4 ) then
strSQL = strSQL & " WHERE RegCuisine.IDreg= 4"
ElseIf (ref= 5 ) then
strSQL = strSQL & " WHERE RegCuisine.IDreg= 5"
ElseIf (ref= 6 ) then
strSQL = strSQL & " WHERE RegCuisine.IDreg= 6"
ElseIf (ref= 7 ) then
strSQL = strSQL & " WHERE RegCuisine.IDreg= 7"
ElseIf (ref= 8 ) then
strSQL = strSQL & " WHERE RegCuisine.IDreg= 8"
Else
response.redirect "blu.html"
End if
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
%>