Erro com conexão ao banco de dados!

Boa tarde, comecei a programar em asp a pouco tempo e venho seguindo alguns códigos como exemplo, devido ao mal funcionamento do meu windows tive q formatá-lo e agora não consigo escrever meus codigos em novos arquivos pois aparece o seguinte erro:

>
HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

Informações técnicas (para a equipe de suporte)

* Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/eltonassuncao/web/teste.asp, line 15

verifiquei a minha conexão através do código:

<%
if Conn = "" then
response.write "Conexão fechada!"
else
response.write "Conexão aberta!"
End if
%>
e aparece conexão fechada, porém eu nunca manipulei essa conexão e agora não sei como consertar, sei q estou precisando estudar mais sobre banco de dados, mas será q alguém pode me ajudar, não sei nem por onde começar...a minha programação possui 2 connectionstrings estou encaminhando elas para facilitar no entendimento.

Ps.: a conexão com o banco em admin q é o primeiro código funciona corretamente e eu até consigo manipular os dados normalmente, porém qdo eu kero exibir a função para o usuário não consigo pois o banco esta “deslogado”.

<%' connectionstrings para a area administrativa
dim con, caminho
caminho = server.MapPath("../../Dados/eltonassuncao.mdb")

' função que conecta ao banco
sub connectset con = server.CreateObject("ADODB.Connection")
con.connectionstring = "driver={Microsoft Access Driver (*.mdb)};Dbq="&caminho
con.open()
end sub

' função que desconecta do banco
sub desconnect
con.close()
set con = nothing
end sub
sub logado()
if session("acesso") <> true then
session("msgErro") = "Você deve logar primeiro"
response.Redirect("../Default.asp")
response.End()
end if
end sub
%>

<%
' connectionstrings para o restante do site
dim con, caminho
caminho = server.MapPath("dados/eltonassuncao.mdb")

' função que conecta ao banco
sub connect
set con = server.CreateObject("ADODB.Connection")
con.connectionstring = "driver={Microsoft Access Driver (*.mdb)};Dbq="&caminho
con.open()
end sub

' função que desconecta do banco
sub desconnect
con.close()
set con = nothing
end sub
%>