<% Application("StringConn") = "Provider = microsoft.jet.oledb.4.0; data source=e:\home\queroumbicho\dados\bancodedados.mdb" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Application("StringConn") Hoje = FormataDataString(date) EscreveFuncaoJavaScript(Conn) %>
Página Inicial
Posse Responsável
Cuidados com seu Bicho
Dicas Quero um Bicho
Perguntas Freqüentes
Seu navegador não oferece suporte para quadros entre linhas ou está configurado no momento para não exibi-los.
<% conn.close set conn = nothing %>
