<%Set Banco=Server.CreateObject("ADODB.Connection") Banco.Open "DRIVER={SQL Server};DATABASE=supercross;SERVER=192.168.0.6;uid=supercross2008;pwd=SpRcRsS2008"%> SUPERCROSS 2008






 





 
<%set tab = banco.execute("select * from tbPilotos where tbPilotos_Categoria = 'SX1' order by tbPilotos_nome") while not tab.eof if wcor = "E4CBAD" then wcor="fae6cd" else wcor="E4CBAD" end if%> <%tab.movenext wend%>
Nr.
Nome
"><%=tab("tbPilotos_Nome")%>
<%set tab = banco.execute("select * from tbPilotos where tbPilotos_Categoria = 'SX2' order by tbPilotos_nome") while not tab.eof if wcor = "E4CBAD" then wcor="fae6cd" else wcor="E4CBAD" end if%> <%tab.movenext wend%>
Nr.
Nome
"><%=tab("tbPilotos_Nome")%>