<% ' conexao com o banco de dados Set conecta = Server.CreateObject("ADODB.Connection") 'conecta.Open "Driver={SQL Server}; Server=; Database=chat; UID=; PWD=" 'conecta.Open "FILE NAME=" & server.MapPath("\col\conexao") & "\col.udl" ' modificao feita por ficardo em 17 de dezembro de 2000 conecta.Open "DSN=amazon;DRIVER={Microsoft Access Driver (*.mdb)}" Randomize() kb = ((rnd()*100000)+1) %>