ASP - problema con xelupload al conectar a db

Hola,

Estoy utilizando xelupload para subir imagenes al servidor y las imagenes me las sube bien pero cuando intento conectarme a la base de datos para actualizar un registro me da un error "HTTP 500 - Error interno del servidor"
Tengo permisos de escritura ya que las imagenes me las subia bien hasta que inclui el archivo de conexion. Tambien he intentado hacer la conexion aqui en vez de en otro archivo aparte y lo mas raro es que esta conexion la utilizao para toda la pagina y me va bien.
¿Alguien me puede ayudar por favor? que ya estoy

Mi codigo es este:

<!--#include file="conexion.asp"--> //Linea que da problema
<!--#include file="xelupload.asp"-->
<%
Dim oConn, up, fich
set up = new xelUpload
up.Upload()

Response.Flush
For each fich in up.Ficheros.Items
strNombre=up.Form("IdAut") & ".jpg"
Response.Write("El proceso ha sido realizado correctamente")
fich.GuardarComo strNombre, Server.MapPath("../scripts")
Next
set up = nothing
%>

El archivo conexion.asp contiene:

var CadenaConexion = "Provider=SQLOLEDB.1;Password=MiContraseña;Use r ID=MiBase;Initial Catalog=MiBase;Data Source=127.0.0.1"

Esto es lo que tenes actualmente:

var CadenaConexion = "Provider=SQLOLEDB.1;Password=MiContraseña;Use r ID=MiBase;Initial Catalog=MiBase;Data Source=127.0.0.1"

Lo que esta mal:
var (Esto está mal ya que esto se usa JS para la definición de variables)

Así lo deberías usar:

CadenaConexion = "Provider=SQLOLEDB.1;Password=MiContraseña;Use r ID=MiBase;Initial Catalog=MiBase;Data Source=127.0.0.1"

A simple vista es eso, caso contrario tendría que ver los 2 archivos en forma completa para darme cuenta que es.

Saludos Cordiales.-*

Sip era eso, es que soy novatilla con asp.
Muchas gracias.

Hola de nuevo,

Pues aun tengo un problema, esa linea esta solucionada pero la conexion me sigue dando error.
Parece que ahora el error me lo da en esta linea:
oConn = Server.CreateObject("ADODB.Connection");
He puesto todo el codigo en el mismo fichero para que se vea mejor, es este:

<!--#include file="xelupload.asp"-->
<%
Dim oConn, up, fich
set up = new xelUpload
up.Upload()

Response.Flush
For each fich in up.Ficheros.Items
strNombre=up.Form("IdAut") & ".jpg"
Response.Write("El proceso ha sido realizado correctamente")
fich.GuardarComo strNombre, Server.MapPath("../scripts")

oConn = Server.CreateObject("ADODB.Connection");
oConn.Open ("Provider=SQLOLEDB.1;Password=librocyl;User ID=libroweb;Initial Catalog=libroweb;Data Source=127.0.0.1");
consulta = "UPDATE libros SET confoto=1 WHERE IdAut=" + strNombre;
oConn.Execute(consulta);
oConn.close();
set oConn = nothing
Next
set up = nothing
%>