xelupload con sql server

edohen · #1 (**permalink**) 08/02/2007, 11:04

Amig@s tengo el siguiente problema y no se que mas hacer... estoy subiendo imagenes con el xelupload que funciona muy bien... pero tengo problemas al momento de conectarme a la BD Sql les muestro el codigo para que me den una manito....

Formulario de datos:

Cita:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% if session("autorizacion")<>1 then
response.redirect "login.asp"
end if%>
<html>
<head>
<title>Administrar Usuarios</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../css_care.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
dim tit,res,noti,fech,img
tit=request("titulo")
%>
<table width="500" border="1" align="center" bordercolor="#E8E8E8">
<tr align="center">
<td colspan="2" valign="middle" class="titulo"><img src="../img/CAREhoriz.jpg" width="98" height="32" align="left">
Ingrese los datos de la nueva noticia</td>
</tr>
<form method="post" action="graba_not.asp" enctype="multipart/form-data">
<tr>
<td width="26%" class="texto_proyecto">Título:</td>
<td width="74%" align="left"> <input name="titulo" type="text" size="35">
</td>
</tr>
<tr>
<td class="texto_proyecto">Resumen:</td>
<td align="left"> <textarea name="resumen" cols="35" rows="5"></textarea></td>
</tr>
<tr>
<td class="texto_proyecto">Parrafo 1:</td>
<td align="left"> <textarea name="texto1" cols="35" rows="5"></textarea></td>
</tr>
<tr>
<td class="texto_proyecto">Parrafo 2:</td>
<td align="left"> <textarea name="texto2" cols="35" rows="5"></textarea></td>
</tr>
<tr>
<td class="texto_proyecto">Parrafo 3:</td>
<td align="left"> <textarea name="texto3" cols="35" rows="5"></textarea>
<input name="opcion" type="hidden" value="1" size="20"></td>
</tr>
<tr>
<td class="texto_proyecto">Imagen portada: </td>
<td><input name="thumb" type="file" size="30" id="examinar"></td>
</tr>
<tr>
<td class="texto_proyecto">Imagen interna: </td>
<td><input name="foto" type="file" size="30" id="examinar"></td>
</tr>
<tr align="center">
<td colspan="2"> <input type="submit" value="Grabar"> </td>
</tr>
</form>
<tr align="center">

<td colspan="2"><a href="administrar.asp"><< Volver al Menú Principal</a></td>
</tr>
</table>

</body>
</html>

Pagina donde hago mi proceso:

Cita:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% if session("autorizacion")<>1 then
response.redirect "login.asp"
end if%>
<html>
<head>
<link href="../css_care.css" rel="stylesheet" type="text/css">
</head>


<body>
<%
dim ejecuta
set objUpload = new xelUpload
objUpload.Upload()
ejecuta=objUpload.Form("opcion")
select case ejecuta
'/////////////////////////////////////////////////////////////////////////////////////////////
'/////////////////////////////// OPCION 1 ///////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////////////////////
case 1 'Insertar un registro a la Base de Datos
dim titulo
dim resumen
dim texto1
dim texto2
dim texto3, thumb, foto
'set objUpload = new xelUpload
'objUpload.Upload()
tit=objUpload.Form("titulo")
resum=objUpload.Form("resumen")
text1=objUpload.Form("texto1")
text2=objUpload.Form("texto2")
text3=objUpload.Form("texto3")
'thumb=objUpload.Form("thumb")
'foto=objUpload.Form("foto")
set thumb = objUpload.Ficheros("thumb")
set foto = objUpload.Ficheros("foto")
'if((tit <> "") and (resum <> "") and (text1 <> "") and (text2 <> "") and (text3 <> "")and (thumb <> "")and (foto <> ""))then
thumb.Guardar Server.MapPath("upload")
foto.Guardar Server.MapPath("upload")
sSQL="Insert Into noticias (titulo,resumen,texto1,texto2,texto3,thumb,foto) values ('" & tit & "','" & resum & "','" & text1 & "','" & text2 & "','" & text3 & "','" & thumb & "','" & foto & "')"
set RS = Conn.Execute(sSQL)
%>

<table width="50%" align="center">
<tr>
<td class="texto_proyecto"><img src="../img/CAREhoriz.jpg" width="98" height="32">
Sus datos fueron guardados correctamente</td>
</tr>
<tr>
<td align="center" ><a href="usuarios.asp">Insertar
nueva noticia</a> | <a href="administrar.asp">Menu Principal</a></td>
</tr>
</table>
<%
'Cerramos el sistema de conexion
'else%>

<table width="50%" align="center">
<tr>

<td class="texto_proyecto"><img src="../img/CAREhoriz.jpg" width="98" height="32">
Atención ! Debe llenar todos los campos</td>
</tr>
<tr>

<td align="center"><a href="noticias.asp">Insertar Noticia</a> | <a href="administrar.asp">Menu
Principal</a></td>
</tr>
</table>
<% 'end if

ahora lo que pasa es que me sube las imagenes muy bien pero me sale el siguiente error:

Cita:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01B6)
El objeto no acepta esta propiedad o método
/care-bolivia/manager/graba_not.asp, línea 41

Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)

Página:
POST 186800 bytes to /care-bolivia/manager/graba_not.asp

Datos de POST:
error '80020009'
Ocurrió una excepción.

/iisHelp/common/500-100.asp, line 414

es justo donde le asigno a una variable el insert a la bd .... no se como solucionar esto..... ayuda porfavor