Problemas com onchage

[MilaLoira 0]

galera ,estou com um probleminha com o onchage. Uso funções nas minhas páginas.Porém quando coloco o onchage no parametro ele dá erro de conexão, dizendo que a conexão está fechada. E se nao utilizá-lo as páginas não dão erro.Vcs podem me ajudar vendo que erro que estou cometendo, pois não consigo mais enxergar. O banco que uso é o access Xp. OBS: as páginas varsys.asp e function.asp estão dentro do diretório includes e a página Cadastro vaga está dentro do diretório site/clientetanto site quanto includes estão na raís.Página de conexão: varsys.aspsession("pDNS") ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../../banco/easy.mdb") '---------------------------------------------------------------------------------------Function Executa(Query) '---------------------------------------------------------------------------------------On Error resume nextSet Conecta = Server.CreateObject("ADODB.Connection")Conecta.ConnectionTimeout = 10Conecta.CommandTimeout = 20Conecta.Open session("pDNS")Conecta.Execute QueryEnd Function'---------------------------------------------------------------------------------------Function Registro(Query)'---------------------------------------------------------------------------------------On Error resume nextSet Conecta = Server.CreateObject("ADODB.Connection")Conecta.ConnectionTimeout = 10Conecta.CommandTimeout = 20Conecta.Open session("pDNS")err.clearSet Res = Server.CreateObject ("ADODB.Recordset")Res.CursorLocation = 3 'adUseClientRes.Open Query,Conecta, adOpenKeyset 'adOpenForwardOnly 'response.write err.description'response.endSet Registro= Res'Res.Close'Set Res = nothing End FunctionPágina da função select : function.asp<!--#include file = "VarSys.asp"--><!----------COMBO ESTADO------------><%function Estado(pUf,pOnchange)%><select name="CobUF" class="form_select" onchange="<%=pOnchange%>"><option value = "">Selecione ==></option><%xSQLUf = "select * from TB_ESTADO"set rsUf = registro(xSQLUf)do while not rsUf.eofxCodUf = rsUf("coduf")xnomeUf = rsUf("nomeUf")if trim(pUf) = trim(xCodUf) thenresponse.Write "<option value =" & xCodUf & " selected>" & xnomeUf & "</option>"elseresponse.Write "<option value =" & xCodUf & ">" & xnomeUf & "</option>"end ifrsUf.movenextloop%></select><%end function%>Página do formulário CadastroVaga.asp<!--#include file = "../../includes/function.asp"--><tr><td width="30" class="td_branca"><IMG SRC="<%=plocal%>images/gif/setinha_vermelha.gif"></td><td width="140" class="td_branca">Local:</td><td width="300" class="td_branca"><%Call Estado(pUf,"document.Frm_CadastroVaga.action='CadastroVaga.asp';document.Frm_Cadastrovaga.submit();")%> - </td><td width="30" class="td_branca" style="border-right: #9AABB3 1px solid;"><IMG SRC="<%=plocal%>images/gif/help2.gif" alt="Escolha a cidade e o estado referente a vaga."></td></tr>

[michelsp 0]

ASP?Posta no forum de ASP, q terá mais chances de ter seu problema resolvido.Bjão, Mila.

[walace 1]

asp ? Movido