Mostrar Mensajes

Bienvenido(a), Visitante. Por favor, ingresa o regístrate.
¿Perdiste tu email de activación?

Información del Perfil

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.

Mensajes - Mollense

Páginas: 1 ... 72 73 [74] 75 76 ... 79

1826

ASP / Re: Puedo Ejecutar Un .exe Con Asp?

« en: Martes 24 de Octubre de 2006, 15:14 »

¿Pero lo probaste en modo local o existe algún servidór que te deje configurar los permisos de esa forma?

1827

ASP / Re: Descargar Una Imagen A Una Bd

« en: Martes 24 de Octubre de 2006, 06:31 »

La verdad es que nunca he guardado una imágen en una BD, lo que he hecho es subir una imágen que el usuario posée en su dísco y guardarla en el servidor al mismo tiempo que la registraba en la base de datos.

La forma de hacerlo hera agregando...

enctype="multipart/form-data"

dentro de la declaración del Form en el que se encontraban varios Input del tipo File

luego de que el usuario precionaba el botón submit, la página que lo recibía leía byte por byte extrallendo el típo de archivo el tamaño etc, etc.

Para esto utilizaba algo como esto:

Código: Text

 
&#60;%On Error Resume Next%&#62;
&#60;%
  Class miGrua
    Public sub TomarDatos()
      dim Datos, cantidadBytes, posActual, posSiguiente, largoPalabra
      dim nombre, datosArchivo, tipo
      cantidadBytes=Request.TotalBytes
      Datos = Request.BinaryRead(cantidadBytes)   
      posActual=1
             
      'impr Datos,  cantidadBytes
      'Response.write &#34;&#60;br&#62;&#60;br&#62;&#60;br&#62;&#34;  
        
      'Extraer nombre del album
      posActual = InStrB(posActual, Datos, aBinario(&#34;NombreAlbum&#34;)) + 13
      posActual = InStrB(posActual, Datos, aBinario(Chr(13))) + 2
      posSiguiente=InStrB(posActual, Datos, aBinario(&#34;---&#34;)) - 2
      largoPalabra=posSiguiente-posActual    
      NombreAlbum = aCadena(MidB(Datos, posActual,largoPalabra))
          
      'Extraer tipo de album
      posActual = InStrB(posActual, Datos, aBinario(&#34;TipoAlbum&#34;)) + 11
      posActual = InStrB(posActual, Datos, aBinario(Chr(13))) + 2
      posSiguiente=InStrB(posActual, Datos, aBinario(&#34;---&#34;)) - 2
      largoPalabra=posSiguiente-posActual    
      TipoAlbum = aCadena(MidB(Datos, posActual,largoPalabra))
      'Response.write &#34;Alb: &#34; & TipoAlbum & &#34;&#60;br&#62;&#34;
      'Response.write &#34;Alb&#34; & NombreAlbum & &#34;&#60;br&#62;&#34;
 
      'Registrar el nuevo album
      codigoAlbum = RegistrarAlbum(NombreAlbum, Session(&#34;Usuario&#34;),TipoAlbum)
      if(codigoAlbum=-1)then
        Response.write &#34;&#60;br&#62; Error interno: Imposible guardar el album &#60;br&#62;&#34; 
        ObjectContext.SetAbort
        exit sub
      end if
      
      Response.write &#34;&#60;h2&#62;Sus recuerdos están seguros en su&#60;BR&#62;ESPACIO PERSONAL&#60;/h2&#62;&#34;
      
      Response.write &#34;&#60;table align=Center border=1&#62;&#34;
        Response.write &#34;&#60;tr&#62;&#60;td colspan=2 align=center&#62;&#60;b&#62;&#34; & NombreAlbum & &#34;&#60;/b&#62;&#60;/td&#62;&#60;/tr&#62;&#34;
      do until posActual=10 or posActual&#62;=cantidadBytes
        posActual = InStrB(posActual, Datos, aBinario(&#34;filename=&#34;)) + 10
        if(posActual&#62;10)then
          'Extraer nombre de la imagen
          posSiguiente=InStrB(posActual, Datos, aBinario(&#34;Content-Type&#34;))-3
          largoPalabra=posSiguiente-posActual    
          nombre = aCadena(MidB(Datos, posActual,largoPalabra))
          nombre = Right(nombre, Len(nombre)-InStrRev(nombre,&#34;&#092;&#34;))
          'Response.write nombre & &#34;&#60;br&#62;&#34;
          
          'Extraer tipo de archivo  (.gif, .jpj, etc)
          tipo = Right(nombre, Len(nombre)-InStrRev(nombre,&#34;.&#34;)+1)
          'Response.write tipo & &#34;&#60;br&#62;&#34;                            
                 
          'Quitar extención al nombre
          nombre = Left(nombre, Len(nombre)-Len(tipo))
          'Response.write nombre & &#34;&#60;br&#62;&#34;
          
          'Extraer datos de archivo
          posActual = InStrB(posActual, Datos, aBinario(&#34;Content-Type&#34;)) + 14
          posActual = InStrB(posActual, Datos, aBinario(Chr(13))) + 2
          posSiguiente=InStrB(posActual, Datos, aBinario(&#34;---&#34;)) - 2
          largoPalabra=posSiguiente-posActual
          largoDatos=largoPalabra
          datosArchivo = MidB(Datos, posActual,largoPalabra)
          'impr datosArchivo,  largoPalabra
          'Response.write &#34;&#60;br&#62;&#34;
                
          
          'Extraer tipo de la imagen (Publica o privada)
          posActual = InStrB(posActual, Datos, aBinario(&#34;TipoImagen&#34;))
          posActual = InStrB(posActual, Datos, aBinario(&#34;P&#34;))
          posSiguiente=InStrB(posActual, Datos, aBinario(&#34;---&#34;)) - 2
          largoPalabra=posSiguiente-posActual    
          TipoImagen = aCadena(MidB(Datos, posActual,largoPalabra))
          'Response.write TipoImagen & &#34;&#60;br&#62;&#34;
          
          if(Len(datosArchivo)&#62;1)then
            'Guardar los Archivos de imagen
            guardarArchivo nombre, datosArchivo, largoDatos, tipo, TipoImagen, exito
            'Registrar los Archivos de imagen en la base de datos
            if(exito=&#34;OK&#34;)then
              codigo=RegistrarImagen(codigoAlbum, nombre & tipo, TipoImagen)
              if(codigo=-1)then
                Response.write &#34;&#60;br&#62; Error interno: Imposible guardar la imagen &#60;br&#62;&#34; 
                ObjectContext.SetAbort
                exit sub
              end if
            end if
          end if
        end if
      loop
      Response.write &#34;&#60;/table&#62;&#34; 
      ObjectContext.SetComplete
      %&#62;    
      &#60;!--#include file= &#34;includes&#092;Error.inc&#34;--&#62;
      &#60;%
    end sub
    
    Private Function aBinario ( str ) 
      Dim i, strbuf 
      for i = 1 to Len(str) 
        strbuf = strbuf & ChrB (AscB (Mid(str, i, 1)))
      next 
      aBinario = strbuf 
    End Function
 
    Private Function aCadena ( bin ) 
      Dim i, bytebuf 
      for i = 1 to LenB(bin) 
        bytebuf = bytebuf & Chr(AscB(MidB(bin, i, 1)))
      next 
      aCadena = bytebuf 
    End Function 
    
    Private Sub impr( bin, bytes ) 
      Dim i, bytebuf 
      for i = 1 to bytes
        Response.write Server.HTMLEncode(ChrB(AscB(MidB(bin, i, 1))))
      next 
    End Sub 
    
    Private Sub guardarArchivo(byRef nombre, byRef datos, bytes, ext, TipoImagen, byRef result)
      dim ruta, archivo, aceptar, aux, subindice         
      
      select case(lCase(ext))
        case &#34;.gif&#34;
          aceptar=&#34;si&#34;
        case &#34;.jpg&#34;
          aceptar=&#34;si&#34;
        case else
          aceptar=&#34;no&#34;
      end select
      
      if(aceptar=&#34;no&#34;)then
        Response.write &#34;Formato no permitido: &#34; & ext & &#34;&#60;br&#62;&#34;
        result=&#34;NO&#34;
        exit sub
      end if
      
      ruta=request.serverVariables(&#34;APPL_PHYSICAL_PATH&#34;) & &#34;Archivos&#092;&#34;
      archivo = ruta & nombre  & ext
      
      set confile = createObject(&#34;scripting.filesystemobject&#34;)
      
      subindice=1
      aux=&#34;&#34;      
      do while(confile.fileExists(archivo))
        aux = nombre & subindice
        subindice=subindice+1
        archivo = ruta & aux & ext
      loop    
      if(aux&#60;&#62;&#34;&#34;)then nombre=aux
      'Response.write archivo & &#34;&#60;br&#62;&#34;
      
      set fich = confile.CreateTextFile(archivo, true) 
      for i=3 to bytes
        c=Chr(AscB(midB(datos,i,1)))
        fich.write(c) 
      next 
      fich.close()
      Response.write &#34;&#60;tr&#62;&#34;
        Response.write &#34;&#60;td&#62;&#34; & nombre & ext & &#34;, &#34; & tamanio(bytes)      
        Response.write &#34;&#60;br&#62;&#34; & TipoImagen  & &#34;&#60;/td&#62;&#34;
        Response.write &#34;&#60;td align=center&#62;&#60;img src=Archivos/&#34; & nombre & ext & &#34; WIDTH=120 HEIGHT=100&#62;&#60;/td&#62;&#34;
      Response.write &#34;&#60;tr&#62;&#34; 
      
      Set confile=Nothing
      set fich=Nothing 
      
      %&#62;    
      &#60;!--#include file= &#34;includes&#092;Error.inc&#34;--&#62;
      &#60;%
      
      result=&#34;OK&#34;
    End Sub
    
    Private Function tamanio( bytes ) 
      Dim MB, KB, m, z
      m=1024*1024
      MB=0
      KB=0
      do while(bytes&#62;m)
        MB=MB+1
        bytes=bytes-m
      loop
      do while(bytes&#62;1024)
        KB=KB+1
        bytes=bytes-1024
      loop
      z=&#34;&#34;
      if(MB&#62;0)then z = MB & &#34; MB &#34;
      if(KB&#62;0)then z = z & KB & &#34; KB &#34;
      if(bytes&#62;0)then z = z & bytes & &#34; bytes&#34;
      tamanio=z
    End Function
          
    
    Private Function RegistrarAlbum(nombreAlbum, usuario, TipoAlbum)
 
      Const adOpenKeyset = 1
      Const adLockOptimistic = 3
  
      Set Conn = Server.CreateObject(&#34;ADODB.Connection&#34;)
      if(Conn.state)then
        Conn.Close()
      end if
      Conn.Open(&#34;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&#34; & Server.MapPath(&#34;&#092;bd.mdb&#34;))
  
      'Ver si existe el album
      sqlTxt = &#34;SELECT CodigoAlbum FROM Albunes WHERE NombreAlbum = '&#34; & nombreAlbum & &#34;'&#34;
      set rs=createobject(&#34;ADODB.Recordset&#34;)
      if(rs.state)then
        rs.Close()
      end if
      rs.LockType = adLockOptimistic
      rs.Open sqltxt, Conn
      
      'Si no existe, crearlo
      if(rs.eof)then 
        if(rs.state)then
          rs.Close()
        end if
        sqltxt=&#34;INSERT INTO Albunes(NombreAlbum,Usuario,TipoAlbum) Values(&#34;
        sqltxt=sqltxt & &#34;'&#34; & nombreAlbum & &#34;'&#34;
        sqltxt=sqltxt & &#34;,'&#34; & usuario & &#34;'&#34;
        sqltxt=sqltxt & &#34;,'&#34; & TipoAlbum & &#34;')&#34;
 
        Set Cmd  = CreateObject(&#34;ADODB.Command&#34;)
        Cmd.CommandText = sqltxt
        Cmd.ActiveConnection=Conn
        Cmd.Execute
        Set Cmd=Nothing         
        
        'Ver si está correctamente registrado
        sqlTxt = &#34;SELECT CodigoAlbum FROM Albunes WHERE NombreAlbum = '&#34; & nombreAlbum & &#34;'&#34;
        set rs=createobject(&#34;ADODB.Recordset&#34;)
        if(rs.state)then
          rs.Close()
        end if
        rs.LockType = adLockOptimistic
        rs.Open sqltxt, Conn
        if(rs.eof)then
          codigo=-1
        else
          codigo=rs.Fields(&#34;CodigoAlbum&#34;)
          Response.write &#34;&#60;h2&#62;&#60;B&#62;Un nuevo album a sido creado.&#60;/B&#62;&#60;/h2&#62;&#34;
        end if
      else
        codigo=rs.Fields(&#34;CodigoAlbum&#34;)
        Response.write &#34;&#60;h2&#62;&#60;B&#62;El album ya existe, las imagenes serán anexadas a éste.&#60;/B&#62;&#60;/h2&#62;&#34;
      end if           
            
      Set Conn=Nothing
      set rs=Nothing
      
      %&#62;    
      &#60;!--#include file= &#34;includes&#092;Error.inc&#34;--&#62;
      &#60;%
      
      RegistrarAlbum=codigo
      
    End Function
    
    
    Private Function RegistrarImagen(codigoAlbum, imagen, TipoImagen)
      
      Const adOpenKeyset = 1
      Const adLockOptimistic = 3
  
      Set Conn = Server.CreateObject(&#34;ADODB.Connection&#34;)
      if(Conn.state)then
        Conn.Close()
      end if
      Conn.Open(&#34;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&#34; & Server.MapPath(&#34;&#092;bd.mdb&#34;))
  
      sqltxt=&#34;INSERT INTO Imagenes(codigoAlbum,imagen,TipoImagen) Values(&#34;
      sqltxt=sqltxt & &#34;'&#34; & codigoAlbum & &#34;'&#34;
      sqltxt=sqltxt & &#34;,'&#34; & imagen & &#34;'&#34;
      sqltxt=sqltxt & &#34;,'&#34; & TipoImagen & &#34;')&#34;
      'Response.Write sqltxt & &#34;&#60;BR&#62;&#34;
      
      Set Cmd  = CreateObject(&#34;ADODB.Command&#34;)
      Cmd.CommandText = sqltxt
      Cmd.ActiveConnection=Conn
      Cmd.Execute
      Set Cmd=Nothing
      
      sqlTxt = &#34;SELECT CodigoAlbum FROM Imagenes WHERE CodigoAlbum = &#34; & codigoAlbum & &#34; AND imagen = '&#34; & imagen & &#34;'&#34;
      'Response.Write sqltxt & &#34;&#60;BR&#62;&#34;
      
      set rs=createobject(&#34;ADODB.Recordset&#34;)
      if(rs.state)then
        rs.Close()
      end if
      rs.LockType = adLockOptimistic
      rs.Open sqltxt, Conn
      if(rs.eof)then
        codigo=-1
      else
        codigo=rs.Fields(&#34;CodigoAlbum&#34;)
      end if
  
      Set Conn=Nothing
      set rs=Nothing
      
      %&#62;    
      &#60;!--#include file= &#34;includes&#092;Error.inc&#34;--&#62;
      &#60;%
      
      RegistrarImagen=codigo
    End Function  
  end class
%&#62;
 
 

Bueno....ya se fue un poco extenso no?

Nos veremos

1828

ASP / Re: Multiple Seleccion Con Un Combo

« en: Martes 24 de Octubre de 2006, 06:21 »

Cuando recibas este tipo de campos de formulario los valores que un usuario haya seleccionado te llegarán separados por comas si los recuperas de esta forma:

Código: Text

 
Valores=Request.Form(&#34;CampoSelectMultiple&#34;)

De esta forma podrias utilizar split para separarlos y hacer con ellos lo que necesites.

Otra forma (Creo que es la correcta) es tratar al campo de selección múltiple como una colección y hacer lo siguiente:

Código: Text

 
Dim valores(), k
k = 0
For Each valorCampo In Request.Form(&#34;CampoSelectMultiple&#34;)
    Redim Preserve valores(k)
    valores(k) = valorCampo
    k = k + 1
Next 
 
 

De esta forma te creas un array (Valores) con todos los valores que el usuario ha seleccionada.

1829

ASP / Re: Proteger Archivos A Usuarios No Registrados

« en: Martes 24 de Octubre de 2006, 05:59 »

Cita de: "Kev"

Hola bueno mira mucha gente responde a esta pregunta que coloques una redireccion a una peticion osea que uses redirect y asunto concluido, pero el caso es que la cadena o URL se ve y puede ser posteriormente distribuido y no podras proteger tus archivos

A que te refieres conque la cadena se ve?....

Si es en la barra de estado al posicionar el mouse sobre el link, yo directamente coloco solamente los links que el usuario tiene permitidos.

Igualmente coloco una redirección a una solicitud de logueo en las páginas que necesiten un determinado nivel del usuario por si este conoce el link por algún otro método, por ejemplo si posée otra cuenta.

Pero igual no te entendí lo que quisiste decir.

1830

ASP / Re: Querystring

« en: Martes 24 de Octubre de 2006, 05:48 »

Como estamos en una discusión de ASP te voy a contar como se usa en dicho lenguaje:

Citar

La verdad no se como se usa el Response.QueryString

Yo tampoco, pero......

Request.QueryString("Clave"), se utiliza para recuperar valores de formularios cuyo metodo se ha establecido como GET ( METHOD="GET" ) o bien para recuperar valores pasados en la cadena de una url de esta forma:

Código: Text

 
http://foros.solocodigo.com/index.php?showtopic=20575

Entonces el valor de showtopic se recupera así:

showtopic=Request.QueryString("showtopic")

Puedes pasar más de un valor en la cadena aneandolos mediante el caracter "&"

Ej:

Código: Text

 
      http://TuPagina.asp?usuario=&#34;Favio&#34;&clave=&#34;noTeLaDigo&#34;

1831

ASP / Re: Como Controlar El Peso De Un Archivo A Subir

« en: Martes 24 de Octubre de 2006, 03:11 »

Perdón....Además deberías controlar que el error fue producido efectivamente porque el tamaño máximo permitido ha sido exedido.

Para eso deberías comprobar así:

Código: Text

 
if(err.number=xxxx)then
   Response.write &#34;Usted no me sube nada, ¿O que se ha creido?&#34;
   Response.end
end if

El xxxx te tocaría aberiguarlo a vos

1832

ASP / Re: Como Controlar El Peso De Un Archivo A Subir

« en: Martes 24 de Octubre de 2006, 03:08 »

Que atrapes el error mediante:

Al principio de la página para que no se caiga:

Código: Text

 
    On Error Resume Next

Después de intentar subir el archivo:

Código: Text

 
if(err)then
    Response.write &#34;Usted no me sube nada, ¿O que se ha creido?&#34;
    Response.end
end if

1833

ASP / Re: Redimensionar Pantalla

« en: Martes 24 de Octubre de 2006, 03:01 »

Tambien puedes crear una función pero es cierto que debe ser en el lado del cliente....por eso........javaScript.

Ejemplo:

Código: Text

 
&#60;script language=&#34;JavaScript&#34;&#62;
      function maximizar(){
            window.window.resizeTo(window.screen.width,window.screen.height);
      }
&#60;/script&#62;
 
 

Y luego....

Código: Text

 
&#60;html&#62;..........
.....................
.....................
        &#60;body onLoad=&#34;maximizar()&#34;&#62;
.................
.................
&#60;/html&#62;
 
 

1834

ASP / Re: Ayuda Con Un .bat

« en: Martes 24 de Octubre de 2006, 02:52 »

ups, mira lo que acabo de ver en nuestro "SOLO CODICO" ...........

Me callaron la voca

1835

ASP / Re: Puedo Ejecutar Un .exe Con Asp?

« en: Martes 24 de Octubre de 2006, 02:50 »

wow....No pensé que se pudiera disparar una aplicación desde una pagina web en un servidor que puede (Lo mas probable) no ser nuestro.

1836

ASP / Re: Ayuda Con Un .bat

« en: Martes 24 de Octubre de 2006, 02:44 »

La verdad es que voy a postear para dar una opinión pero no se si sea como creo..........
y lo que creo es que el objeto "WScript.Shell" solo debe servir para abrir documentos tipo pdf, doc, xls, etc. etc. pero nunca para abrir archivos ejecutables como ser .exe, .bat o cualquier otro que pueda dañar el sistema del servidor.

Pero eso es solamente lo que yo creo.

Nos veremos luego

1837

ASP / Re: Erros De Sintaxis

« en: Martes 24 de Octubre de 2006, 02:37 »

Dos soluciones que encontré hace un tiempo en:

Error de Permisos

Citar

El problema son los permisos de lectura/escritura del archivo *.mdb
Si tienes Windows 2000 no tendrás este problema, pero si usas bases de datos de Access en Windows XP te debe haber ocurrido.

Por ahí he leido que "...es un problema originado por los MDAC del sistema..." No tengo ni idea de lo que es eso, pero lo cuento por si a alguien le aclara algo

El caso es que hay que habilitar el permiso de escritura para el archivo *.mbd.
Para ello abres el explorador de windows, haces click con el segundo boton sobre tu archivo *.mbd, click en propiedades y luego en la pestaña SEGURIDAD.

Probablemente no veas esta pestaña, eso es porque no aparece por defecto. En la ventana del explorador de windows haces click en Herramientas/Opciones de carpeta. Te vas a Ver y desmarcas: Utilizar uso compartido simple de archivos (recomendado)

Bien, ahora que ya estamos todos en la pestaña SEGURIDAD, en el cuadro Nombres de grupos o usuarios seleccionas TODOS y finalmente, debajo, en Permisos de Administradores marcas Control Total.

Con esto ya puedes añadir, modificar y borrar cosas en la base de datos.

Citar

Lo que ahi que hacer es ir al internet information server (IIS), buscar la carpeta web (o todas por defecto o solo las que quieras), boton derecho propiedades , seguridad de directorios y quitar la opcion que viene activada como "acceso anonimo".
Es parecido, pero no lo mismo. De la otra forma le estas dando acceso al usuario invitado a modificar la base de datos. De esta forma, le dices que el usuario que tiene acceso no es el de por defecto, sino el que se ha validado en Windows.
Espero que esta solucion sea de su agrado.

1838

ASP / Re: Error En El Envio De Un Correo Con Odonts

« en: Martes 24 de Octubre de 2006, 02:26 »

No pude subir el Archivo porque tiene mas de 128 K

Igualmente lo puedes buscar en google

que seguro lo encuentras fácil.

1839

ASP / Re: Error En El Envio De Un Correo Con Odonts

« en: Martes 24 de Octubre de 2006, 02:08 »

Yo siempre llego tarde pero en fin..........

Primero hay que saber si tienes el archivo CDONTS.DLL, ya que el XP no lo trae, yo lo tuve que bajar no recuerdo de donde pero aquí te lo dejo.

Una vez que lo tengas deber registrarlo en el sistema y configurar el IIS:

1) Grábalo en la carpeta system32 de windows
2) En el prompt ir al directorio donde fué copiado el dll ............
   CD \windows\system32
3)Registrar el componente..............
   RegSvr32 cdonts.dll
4)El el panel de control / Agregar o quitar programas / Agregar o quitar componenetes de windows................
   a-Abrir el Internet Information Services (IIS)
   b-Activar la casilla servicios SMTP
   c-Aceptar
   d-Siguiente.............y bla bla bla hasta que se instale el sevicio
5)Abrir el IIS
6)Click botón derecho en Servidor Virtual SMTP predeterminado.........Propiedades
7)El la pestaña "Acceso"
   a- Click en Retransmisión
   b- Click en Agregar
   c-Seleccionar "Un único equipo"
   d-Ingresar IP: 127.0.0.1, es decir, localhost
   e-Click en Aceptar
8)Enviar un E-Mail: Así

1840

ASP / Re: Error De Microsoft Vbscript En Tiempo De Ejecución

« en: Lunes 23 de Octubre de 2006, 20:36 »

Y por casualidad haz consultado la línea 361 de tu código?

Utiliza esto en tu código:

Código: Text

 
On Error Resume Next              'Ante un error continua en la sig. linea
err.Description                         'Una descripción del error sucedido
err.HelpContext                       'ID de un tema de ayuda sobre el error
err.HelpFile                              'ID de un Archivo(WH o HTML) sobre el error
err.Number                              'ID de error Nº entre 0 y 65535 
err.Source                               ' Indica el objeto que provocó el error
err.Raise(Number,Sourse,Description,HelpFile, HelpContext)  'Genera un Error  
err.Clear()                              ' Borra toda la información del objeto Err
if(Err)then                                'Ejemplo de uso
    Response.write Err.Description
end if
 
 

Puede que te aclare un poco hacerca del error

1841

ASP / Re: Urge Recubir Variables De Flash

« en: Lunes 23 de Octubre de 2006, 20:32 »

Debes utilizar loadVars....

Busca en el este foro

1842

ASP / Re: Enviar Mensajes En Asp Al Correo

« en: Lunes 23 de Octubre de 2006, 20:25 »

Yo he utilizado CDONTS para el envío de correos así:

Código: Text

&#60;%
  on error resume next  
  
  dirFrom=&#34;Favio@TuDominio.com&#34;
  dirTo=&#34;Favio.Maffeis@Gmail.com&#34;
  asunto=&#34;Prueba de CDONTS&#34;
  cuerpo=&#34;Me gusta mucho programar&#34;
  
 
  Set Mail=CreateObject(&#34;CDONTS.NewMail&#34;)
  Mail.From=dirFrom
  Mail.To =dirTo
  'Mail.BCc=&#34;dir3@Serv3.xxx, dir6@Serv6.xxx,...&#34;
  Mail.Subject=asunto
  Mail.Body=cuerpo
  'Mail.BodyFormat=1                    'Texto(0) o HTML(1)
  'Mail.ContentBase=URL                  'URL de donde se tomarán recursos
  'Mail.ContentLocation=URL                'Nombre del recurso
  'Mail.Importance=3                    'Prioridad del Mensaje
  'Mail.MailFormat=1                    'Codificación: MIME(0) o Texto simple(1)
  'Mail.Value=CadenaEncabezado              'Agrega encabezados al mensaje
  'Version=Mail.Version                  'Versión del objeto CDOMTS
  'Mail.AttachFile(Origen,NombArch,Codificacion)      'Adjunta un Archivo
  'Mail.AttachURL(Origen,Location,Base,Codificacion)    'Adjunta un recurso
  Mail.Send                        'Envía un E-Mail
  'Mail.Send(From,To,Subject,Body,Importance)        'Envía un E-Mail
  Set Mail=Nothing                    'Siempre liberar el Objeto
%&#62;
 

Las líneas comentadas no las he usado pero las incluyo para que sepas que existen

1843

ASP / Re: Fechas En Asp

« en: Lunes 23 de Octubre de 2006, 20:17 »

Deberías aclararme como estás creando el calendario.

Por lo que pude entenderete la solución sería crear un link para cada día del calendario siempre a la misma página ASP y pasarle la fecha en la cadena URL asi:

<a href="pagina.asp?Fecha=.......... (No se como seguir porque no se como estás creando el calendario)

En la página ASP la recuperarías mediante FORM.QueryString("Fecha") y haces con ella la comparación.

No se si me explico.

1844

ASP / Re: No Enviar Los Datos De Un Formulario Al Asp

« en: Lunes 23 de Octubre de 2006, 20:06 »

Creo que sería algo así:

Código: Text

 
&#60;script language=&#34;JavaScript&#34;&#62;
  function frmLogueo(){
    if(document.logueo.usuario.value==&#34;&#34;){
      alert(&#34;Ingrese su nombre de usuario antes de continuar&#34;);
      return false
    }
    if(document.logueo.clave.value==&#34;&#34;){
      alert(&#34;Ingrese su clave antes de continuar&#34;);
      return false
    }
    return true
  }
&#60;/script&#62;
 
&#60;html&#62;
  &#60;head&#62;
    &#60;title&#62;&#60;/title&#62;
  &#60;/head&#62;
  &#60;body&#62;
      &#60;FORM name=&#34;logueo&#34; action=&#34;Acceso.asp&#34; Method=&#34;POST&#34; onSubmit=&#34;return frmLogueo()&#34;&#62;
      &#60;table&#62;
        &#60;TR&#62;
          &#60;TD&#62;&#60;label for=&#34;usuario&#34;&#62;Usuario:&#60;/label&#62;&#60;/TD&#62;
          &#60;TD&#62;&#60;INPUT TYPE=Text Name=usuario&#62;&#60;/TD&#62;
        &#60;/TR&#62;
        &#60;TR&#62;
          &#60;TD&#62;&#60;label for=&#34;clave&#34;&#62;Clave:&#60;/label&#62;&#60;/TD&#62;
          &#60;TD&#62;&#60;INPUT TYPE=password Name=clave&#62;&#60;/TD&#62;
        &#60;/TR&#62;
        &#60;TR&#62;
          &#60;TD colspan=2&#62;&#60;INPUT TYPE=Submit Value=&#34;Aceptar&#34;&#62;&#60;/TD&#62;
        &#60;/TR&#62;
      &#60;/Table&#62;
    &#60;/FORM&#62;
  &#60;/body&#62;
&#60;/html&#62;
 
 

Esto me funciona perfecto pero no se si es lo que necesitas.

1845

La taberna del BIT / Re: Que Hacen En Sus Tiempos Libres ?

« en: Lunes 23 de Octubre de 2006, 19:16 »

Citar

Pues haber cuando nos hechamos una partida de chess online

Yo también me anoto.

Estoy registrado en buho21 por las dudas no sepan donde jugar.

1846

La taberna del BIT / Re: Que Hacen En Sus Tiempos Libres ?

« en: Lunes 23 de Octubre de 2006, 19:10 »

Cita de: "elnapster"

Hace un tiempo solo me gustaba estar solo en fiestas , estar parrandeando con los amigos , pero ahora con el trabajo, la universisdad y los negocios como que ya no tengo tiempo de nada, solo de vez en cuando un jueguito de basquet o boliche , y unas escapaditas muy raras veces....

Eso es muy cierto.
Yo tambien tengo muchisimas cosas que hacer, pero sinceramente si no me hiciera una hora por día para distraerme

...
Me volvería loco.

1847

La taberna del BIT / Re: Que Hacen En Sus Tiempos Libres ?

« en: Domingo 22 de Octubre de 2006, 02:12 »

Cita de: "Enko @ Octubre 20"

Yo justamente.... además de estudiar para la Facultadad de Derecho (Abogacia), trabajar a la mañana en un negocio de venta atendiendo al publico...
...en mis ratos libres programo o estudio algo de programacion, sino toco guitarra. Lástima que ahora no tengo tiempo para aprender temas nuevos, pero con los que se, todavía no me aburro. (la mayoria son de Bach).
resumiendo: Se podría decir que en mis ratos libres programo o toco guitara

Me arías el favor de pasarme alguna partitura, tablatura o lo que tengas para ablandarme los dedos?

M Correo E: Favio.Maffeis@gmail.com

Todos los días voy a jugar al basket con mis amigos y una vez por semana me junto con ellos a comer y tomar algunos tragos...y de ahí a veces para la disco.

Tambien me gusta aislarme un rato de la gente y escuchar el sonido de la naturaleza en medio del campo sin hacer nada.

Obviamente que me encanta programar, pasar tiempo con mi novia y muchas cosas más.

PD: Alguien que me enseñe a hacer QUOTE's aunque me de veruenza preguntar a esta altura

1848

Robótica / Re: Motores Paso A Paso

« en: Domingo 15 de Octubre de 2006, 16:04 »

Haber haber... una impresora vieja que se cruce por mi camino.

Gracias por contestar Bicholey, ahora voy a ver que rompo.

Es cierto lo que decís... Soy de la ciudad de Córdoba (En realidad soy de un pueblito que está cerca de esa ciudad).

Saludos

1849

Robótica / Motores Paso A Paso

« en: Sábado 14 de Octubre de 2006, 16:42 »

Hola gente.

Hace algún tiempo que estoy experimentando y simulando con varios tipos de PIC's pero creo que ya es hora de que me traslade de lo virtual a lo real.

El problema es que necesito motores paso a paso y realmente no he conseguido en ningún lado.

Alguien sabe donde están?

Cabe aclarar que vivo en Argentina

Gracias

1850

Inteligencia Artificial / Re: Ia Y Psicoanálisis

« en: Jueves 29 de Junio de 2006, 21:16 »

Si sirve !!

Páginas: 1 ... 72 73 [74] 75 76 ... 79

SoloCodigo