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