<% 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) %>

<% conn.close set conn = nothing %> <% Function EscreveFuncaoJavaScript (Conn) Response.Write "" & vbcrlf End Function %>