<%


dim titulopagina
dim dsn,Conn

'para access 97
'dsn="DBQ=" & Server.Mappath("jyptv.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

'para acess 2000
dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Domains\antonioautopecas.com.br\db\jyptv.mdb;" 

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn

titulopagina = "e-Web / Gestor Conte&uacute;do Web"

'------------------------------------
'função para gerar senhas aleatórias
'------------------------------------
                  Function GerarChave(valores)
                        Dim chr_Array(35)
                          chr_array(0)= "0"
                          chr_array(1) = "1"
                          chr_array(2) = "2"
                          chr_array(3) = "3"
                          chr_array(4) = "4"
                          chr_array(5) = "5"
                          chr_array(6) = "6"
                          chr_array(7) = "7"
                          chr_array(8) = "8"
                          chr_array(9) = "9"
                          chr_array(10) = "a"
                          chr_array(11) = "b"
                          chr_array(12) = "c"
                          chr_array(13) = "d"
                          chr_array(14) = "e"
                          chr_array(15) = "f"
                          chr_array(16) = "g"
                          chr_array(17) = "h"
                          chr_array(18) = "i"
                          chr_array(19) = "j"
                          chr_array(20) = "k"
                          chr_array(21) = "l"
                          chr_array(22) = "m"
                          chr_array(23) = "n"
                          chr_array(24) = "o"
                          chr_array(25) = "p"
                          chr_array(26) = "q"
                          chr_array(27) = "r"
                          chr_array(28) = "s"
                          chr_array(29) = "t"
                          chr_array(30) = "u"
                          chr_array(31) = "v"
                          chr_array(32) = "w"
                          chr_array(33) = "x"
                          chr_array(34) = "y"
                          chr_array(35) = "z"
					
						Randomize
                          do while len(chave)< 06
                          num = chr_array(Int(35 * Rnd )) 
                          chave = chave + num 
                          loop 
                          GerarChave = chave
                          End Function
						  'response.write  "Senha gerada:&nbsp; " & GerarChave(06) & vbcrlf 

	
%>