ecco i codici, magari mi date una mano
******primo file da includere********
codice:<% Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/fpdb/sau.mdb") Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select TOP 3 * from news order by id DESC", conn Do while NOT RS.EOF %> <% Dim link link=rs("link") %>[img]images/BLU.gif[/img] <% id1=rs("id") %> <a href="news/scheda.asp?id=<% response.write(id1) %>" target="centrale" class="link3"> <% response.write(link) %> </a> <% RS.MoveNext Loop RS.Close Set RS = Nothing conn.Close Set conn=Nothing %>
******secondo file da includere********
codice:<% Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") conne.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/fpdb/sau.mdb") Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select TOP 1 * from virus order by id DESC", conn Do while NOT RS.EOF %> <% Dim link link=rs("link") %> <% id1=rs("id") %> <a href="virusalert/scheda.asp?id=<% response.write(id1) %>" target="centrale" class="link3"> <% response.write(link) %> </a> <% RS.MoveNext Loop RS.Close Set RS = Nothing conn.Close Set conn=Nothing %>
dovrei inserirli in una terza pagina. che ne dite?


					
					
					
						
  Rispondi quotando