Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 problemas con codigo aspupload
 Foro Bloqueado  Tema Bloqueado


Autor Temas
job
Starting Member

Argentina
24 Posts
Mensajes - 16 Mar 2004 :  17:47:52  Ver Perfil  Enviar Email  Visit job's Homepage
hola, gente...
estuve haciendo cambio de servidor ya que habia contrato otro hosting, pero tengo el problema de que en el nuevo hosting no tiene SmartUpload, entonces tiene aspupload, entonces tengo q cambiar todo el codigo de programacion, lo estuve haciendo y no paso nada nose que estoy haciendo mal, pero aqui le voy a poner el codigo de como lo tengo en SmartUpload, y asi me dan una mano...desde ya muchas...

<!-- code -->

if ((Request.QueryString("accion") = "alta") OR (Request.QueryString("accion")="modificar")) Then
if (Request.QueryString("accion") = "alta") Then
if (not CInt(rsPermisos.Fields.Item("alta_comex").Value)) Then Response.Redirect("../sinpermiso.asp")
rsComex.AddNew
else
if (not CInt(rsPermisos.Fields.Item("baja_comex").Value)) Then Response.Redirect("../sinpermiso.asp")
rsComex.Find "id_comex=" & Request.QueryString("id_comex")
end if
Dim mySmartUpload
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
If (not mySmartUpload.Files("link").IsMissing) Then
fileName = id_comex & "_comex." & mySmartUpload.form("tipo_archivo").values(1)
rsComex.Fields.Item("link").Value = fileName
mySmartUpload.Files("link").SaveAs("../../comex/" & fileName)
End If
rsComex.Fields.Item("titulo").Value = mySmartUpload.form("titulo").Values(1)
rsComex.Fields.Item("descripcion").Value = mySmartUpload.form("descripcion").Values(1)
rsComex.Fields.Item("tipo_archivo").Value = mySmartUpload.form("tipo_archivo").Values(1)
rsComex.Fields.Item("tamanio").Value = mySmartUpload.form("tamanio").Values(1)
rsComex.Fields.Item("tiempo_descarga").Value = mySmartUpload.form("tiempo_descarga").Values(1)
rsComex.Update
response.Redirect("abm_comex.asp")
elseif (Request.QueryString("accion") = "eliminar") Then
if (not CInt(rsPermisos.Fields.Item("baja_comex").Value)) Then Response.Redirect("../sinpermiso.asp")
rsComex.Find "id_comex=" & Request.QueryString("id_comex")
rsComex.Delete
rsComex.Update
response.Redirect("abm_comex.asp")
else
rsComex.Find "id_comex=" & Request.QueryString("id_comex")
end if


<!-- #end code -->


Se carga en un formulario:

Titulo
Descripcion
tipo de archivo: puede ser .doc, .zip
Tamaño
Tiempo de descarga

muchas gracias

pd: si no se entiende lo vuelvo a explicar


job

job
Starting Member

Argentina
24 Posts
Posted - 19 Mar 2004 :  03:32:52  Ver perfil  Enviar e-mail  Visit job's Homepage
gracias a todos por leer el mensaje, ya resolvi el problema

Inicio Pagina

sergiod
Starting Member


6 Posts
Posted - 01 Jul 2007 :  23:07:29  Ver perfil  Enviar e-mail
podrías escribir como resolviste el problema?? porque yo me encuentro en las mismas. Gracias de antemano.

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar