Sentencias SQL

[patriciovenegas]

hola:
necesito rescatar los valores desde una base de datos con variables de aplicacion , pero me arroja un error:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: 'connect'
/portal.asp, línea 6

El código es el siguiente:

<% if application("color_fondo")="" then
dim cnn
set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("basededatos.mdb"))
set config = connect.execute("select * from configuracion")
if not(config.eof) then
application ("color_fondo")=config("color_fondo")
application ("color_fuente")=config("color_fuente")
application ("color_links")=config("color_links")
application ("tamano_fuente")=config("tamano_fuente")
end if
cnn.close
end if
%>