<% if zona <> "" then if porto = "fiu" then select case pag case "cont" pag = " cash" query = "SELECT zona, tariffa FROM tab_zone, tab_tar_cont_fiu where tab_tar_cont_fiu.cod_zona_cont_fiu = tab_zone.cod_zona_cont_fiu AND tab_zone.zona = '" & zona & "'" case "diff" pag = " 30 days" query = "SELECT zona, tariffa FROM tab_zone, tab_tar_diff_fiu where tab_tar_diff_fiu.cod_zona_diff_fiu = tab_zone.cod_zona_diff_fiu AND tab_zone.zona = '" & zona & "'" end select else if porto = "cia" then select case pag case "cont" pag = " cash" query = "SELECT zona, tariffa FROM tab_zone, tab_tar_cont_cia where tab_tar_cont_cia.cod_zona_cont_cia = tab_zone.cod_zona_cont_cia AND tab_zone.zona = '" & zona & "'" case "diff" pag = " 30 days" query = "SELECT zona, tariffa FROM tab_zone, tab_tar_diff_cia where tab_tar_diff_cia.cod_zona_diff_cia = tab_zone.cod_zona_diff_cia AND tab_zone.zona = '" & zona & "'" end select end if end if set connection = Server.createObject("ADODB.Connection") connection.open(conn) Set result = connection.execute(query) if not (result.EOF) then zona = result.fields("zona") tariffa = result.fields("tariffa") %> <% if porto = "fiu" then aeroporto = "Fiumicino" else aeroporto = "Ciampino" end if %> <% 'response.write(zona & "-" & tariffa & " Pagamento " & pag) else %> <% end if ELSE query = "SELECT * FROM tab_zone ORDER BY zona" set connection = Server.createObject("ADODB.Connection") connection.open(conn) Set result = connection.execute(query) if result.eof then %> <% response.end() result.close() ELSE %>

Service Rate.

Requested service: <%=zona%> - <%=aeroporto%>

Rate: €. <%=tariffa%>  - V.A.T. 10% excluded

Payment method:<%=pag%>

No rate found

Select Airport Fiumicino Ciampino

Select leaving or destination zone <% do while(not result.EOF) %> "><%=result.fields("zona")%> <% if not(result.eof) then result.moveNext() end if loop end if %>

Payment method: cash

<%end if%>