<%Option Explicit%> <% Response.Expires = -1000 'Response.Buffer = True dim sql, sql2 ,Caminhos, Cn, Rs, Caminho, especialidade, Cidade, Busca ,sEndereco,Snome, SChar,Total Caminhos = "DBQ=" & Server.MapPath("Banco.mdb") Set Cn = Server.CreateObject("ADODB.Connection") Cn.Open "DSN=vitacl; UID=vitacl; PWD=w4k8c6q6;" %> || || | VITACLUBE | | |||
<

Dúvidas ligar no Telefone: (31) 3271-6136.