problema con xelupload al conectar a db

[balder]

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"

[AlZuwaga]

Para saber el error exacto, hacé un click en el enlace que tengo en la firma (o hacé ésta búsqueda en google :p) y seguí esos pasos. luego contanos el error real.

[El_Metallick]

hola balder... mira te dejo un ejemplo de como lo hago yo y me funciona de maravillas

Código:

         <!--#include file="inc/xelupload.asp"-->
         <%
         'nuestro tamaño máximo
         maxtam = 512 * 1024

         set objUpload = new xelUpload
         objUpload.Upload()

         'si no ha subido ningún fichero, le avisamos
         if objUpload.Ficheros.Count = 0 then
            Response.Write("¡No has subido ningún fichero!")
         else
            'Establecemos la conección a la base de datos
            Set conn = Server.CreateObject("ADODB.Connection")
            conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../catalogo.mdb"))
    
            'accedemos al fichero por su nombre en el formulario
            set objFich = objUpload.Ficheros("imagen")
            if objFich.Tamano <= maxtam and (objFich.TipoContenido = "image/gif" Or objFich.TipoContenido = "image/pjpeg" Or objFich.TipoContenido = "image/jpeg") then
               nombre = objFich.Nombre
               strNombreFichero =  nombre
               objFich.GuardarComo strNombreFichero, Server.MapPath("../imagenes")

               'Creación de la sentencia SQL correspondiente 
               producto_sql="Insert Into tabla.....

               'Ejecución de la orden
               Set rs = Conn.Execute(producto_sql)

               '¡Todo correcto!
               Response.Write "Se ha agregado el producto <b>" & producto & "</b> con la imagen <b>" & id & ""& objFich.Nombre &"</b> satisfactoriamente"

               'Limpiamos nuestro xelUpload y el fichero
               set oFich = nothing
               set objUpload = nothing
            else
               If objFich.Tamano > maxtam Then
                  Response.Write("El archivo seleccionado sobrepasa el límite de tamaño permitido de 500Kb. ")
               end If
               If objFich.TipoContenido <> "image/gif" Or objFich.TipoContenido <> "image/pjpeg" Or objFich.TipoContenido <> "image/jpeg" Then
                  Response.Write("El archivo seleccionado no es una imágen (GIF o JPG).")
               end If
            end if
         end if
         %>

Espero te sirva saludos y suerte

[balder]

Hola,

Gracias por vuestras respuestas, me han dado otra solucion con la que he conseguido solucionarlo.

En el archivo de conexion:

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

Me sobra "var", osea quedaria

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

Gracias a todos

[El_Metallick]

no me habia fijado en eso... pero que bueno que hayas solucionado el problema... saludos