faccio due query vorrei farne di più
la prima su un db
la seconda query(di seguito) la faccio su un secondo dbcodice:<% CNN=Application("CNN") set conn=Server.CreateObject("ADODB.Connection") conn.open CNN Const CONST_DISPLAY = 5 %> <% Dim i Set rsQuery = Conn.Execute("SELECT * FROM news where smenu = ('notizie mondo - generale') ORDER BY id DESC") If rsQuery.EOF Then %> Non ci sono Dati <% End If i = 1 While Not rsQuery.EOF And i <= CONST_DISPLAY %> ','xxx<%=rsQUERY("id")%>',450,550,'yes' ,'no','1',5,4)"><%= rsQuery("titolo") %>-<%= rsQuery("data_ins") %> <% rsQuery.MoveNext : i = i + 1 Wend %>
quando vado a fare la terza mi dà un errore in quanto "punta " al db della seconda query come faccio a chiudere la connessione con il secondo DB (CNN3) e a ritornare sulla prima (CNN) ?codice:<% CNN3=Application("CNN3") set conn=Server.CreateObject("ADODB.Connection") conn.open CNN3 Const vista = 5 %> <% Dim Q Set rs1Query = Conn.Execute("SELECT * FROM newsru where smenu=('nomine-nomine') and vis=-1 ORDER BY id desc") If rs1Query.EOF Then %> Non ci sono Dati <% End If Q = 1 While Not rs1Query.EOF And Q <= vista %> ','xxx<%=rs1QUERY("id")%>',450,550,'yes' ,'no','1',5,4)"><%=rs1QUERY("titolo")%>-<%=rs1QUERY("data_ins")%> <% rs1Query.MoveNext : Q = Q + 1 Wend![]()

Rispondi quotando
