% code = replace(request.querystring("id"),"'","''") Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") conn.Open conn_concorsi Dim rs Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT concorsi.*, localita.*, tipologia.*, zona.*, regime.*, range.* " & _ "FROM ((((concorsi " & _ "LEFT JOIN localita ON concorsi.id_localita = localita.id_localita) " & _ "LEFT JOIN range ON concorsi.id_range = range.id_range) " & _ "LEFT JOIN regime ON concorsi.id_regime = regime.id_regime) " & _ "LEFT JOIN tipologia ON concorsi.id_tipologia = tipologia.id_tipologia) " & _ "LEFT JOIN zona ON concorsi.id_zona = zona.id_zona " & _ "WHERE (((concorsi.id) Like " & code & "))" 'response.write sql 'response.end rs.Open sql, conn %>
|