• Viernes 8 de Noviembre de 2024, 23:22

Mostrar Mensajes

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 - oonai

Páginas: [1] 2
1
ASP / Re: Cdo Error 8004020c
« en: Sábado 1 de Marzo de 2008, 12:10 »
Funciono por fin, aqui esta el codigo, por si alguien lo necesita. Es un manejador de reclsamos y de contactos

<%@ LANGUAGE=VBScript %>
<HTML>
<HEAD>
<TITLE>Arconet - Colinas de los Ruices</TITLE>
<META HTTP-EQUIV="Content-type" CONTENT="text,html ; charset=iso-8859-1">
<META name="author" content="Corporación GMO C.A. - 0414.204.78.21 - 0414.209.83.34">
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
</HEAD>
<BODY>
<%
'blanqueo de  sessiones
session("rfecha")=""
session("remail")=""
session("rdirigido")=""
session("rtitulo")=""
session("rcontenido")=""
session("mensaje")=""
'capturo informacion
fecha = request.form("fecha")
email = request.form("email")
dirigido = request.form("dirigido")
titulo = request.form("titulo")
contenido = request.form("contenido")
key = request.form("key")
'cargo sessiones para la confirmacion de envio
session("rfecha")=fecha
session("remail")=email
session("rdirigido")=dirigido
session("rtitulo")=titulo
session("rcontenido")=contenido
'selecciono retorno y la data para usos multiples del mismo programa
Select Case key
Case "1":
continuar = "envreclamo.asp"
session("mensaje")="Su reclamo o denuncia está siendo procesada , por Arcorui. Gracias."
enviara="mariettaperroni@yahoo.com"
tipo="RECLAMO"
tituloemail="RECLAMO"
Case "2":
continuar = "envcontacto.asp"
session("mensaje")="Su email sera procesasdo a la brevedad , por Arcorui. Gracias."
enviara="mariettaperron@yahoo.com"
tipo="CONTACTO"
tituloemail="CONTACTO"
End Select  
'creo el mensaje a enviar
msg = tipo & " : " & chr(10) & chr(10)
 msg = msg & "Para  : " & dirigido & chr(10)
 msg = msg & "Fecha  : " & fecha & chr(10)
 msg = msg & "Email  : " & email & chr(10)
 msg = msg & "Titulo  : " & titulo & chr(10)
 msg = msg & "Mensaje  : " & contenido & chr(10)
'
'
' inicio de opciones
' Creo Objetos
Dim ObjSendMail
Dim iConf
Dim Flds
' Inicio objetos
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
     
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "mail-fwd"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 10
.Update
End With
     
Set ObjSendMail.Configuration = iConf
     
Set ObjSendMail.Configuration = iConf
ObjSendMail.To = enviara
ObjSendMail.Subject = tituloemail
ObjSendMail.From = email
ObjSendMail.TextBody = msg
     
ObjSendMail.Send
     
Set ObjSendMail = Nothing
Set iConf = Nothing
Set Flds = Nothing

Response.Redirect continuar
%>

espero que este modelo le sirva a otro usuario de este portal
Manejo de email con CDO

2
ASP / Cdo Error 8004020c
« en: Martes 5 de Febrero de 2008, 21:21 »
Saludos

tengo un problema con el codigo de CDO, el error es
CDO.Message.1 error '8004020c'

At least one recipient is required, but none were found.

/enviaremail.asp, line 58

CODIGO

<%@ LANGUAGE=VBScript %>
<HTML>
<HEAD>
<TITLE>Arconet - Colinas de los Ruices</TITLE>
<META HTTP-EQUIV="Content-type" CONTENT="text,html ; charset=iso-8859-1">
<META name="author" content="Corporación GMO C.A. - 0414.204.78.21 - 0414.209.83.34">
</HEAD>
</HEAD>
<BODY>
<%
fecha = request.form("fecha")
email = request.form("email")
dirigido = request.form("dirigido")
titulo = request.form("titulo")
mensaje = request.form("contenido")
key = request.form("key")
session("mensaje")=""

Select Case key
Case "1":
retorno = "arcoreclamo.asp"
session("mensaje")="Su reclamo o denuncia esta siendo procesada. Gracias."
tipo="Reclamo"
remitir="gpaviles@yahoo.com"
Case "2":
retorno = "contactos.asp"
Case "3":
retorno = ""
Case "4":
retorno = ""
End Select  

msg = tipo & " : " & chr(10) & chr(10)
 msg = msg & "Dirigido a  : " & dirigido & chr(10)
 msg = msg & "fecha  : " & fecha & chr(10)
 msg = msg & "Email  : " & email & chr(10)
 msg = msg & "Titulo  : " & titulo & chr(10)
 msg = msg & "Mensaje  : " & mensaje & chr(10)

Set objEmail = CreateObject("CDO.Message")

objEmail.From = email
objEmail.To = remitir
objEmail.Subject = "Arcorui.net " & tipo
objEmail.Textbody = msg

objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "smtpmailer"
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update

Err.Clear
objEmail.Send ' ESTA ES LA LINEA 58   !!!!!

if err <> 0 then
   response.Write("  ERROR:"&err.description&"   codigo:"&err)
end if

Set objFields = Nothing

  Set objConf = Nothing

  Set objEmail = Nothing


Response.Redirect retorno

 %>
</BODY>
</HTML>

Este programa recibe informacion de correo y envia el email, desde distintos sitios de la pagina y lo reenvia a personas diferentes segun el caso, pero no camina, agradezco alguna idea GRACIAS De antemano

3
ASP / Select Con Asp
« en: Domingo 7 de Enero de 2007, 19:41 »
Saludos a los usuarios de este portal, feliz año 2007, mis mejores deseos ara este nuevo año.
He aprendido mucho usando este portal FELICITACIONES....

Un regalo, para poder leer una Bd usando ASP y SELECT

<SELECT name="nonbre">
<option selected Value="0">Seleccione una ......
<%
Set coneccion = Server.CreateObject("ADODB.Connection")
coneccion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../directorio/mibasadedatos.mdb"))
set pruebars=Server.createobject("ADODB.Recordset")
pruebars.ActiveConnection = coneccion
pruebars.Source = "tabla"
pruebars.open
pruebars.MoveFirst
do while not pruebars.EOF
%>
<option value=" <%response.write  pruebars("campo1")%>">
<% response.write pruebars("campo2")
pruebars.movenext
Loop
pruebars.close
coneccion.close
Set pruebars = nothing
Set coneccion = nothing
%>
</select>
               
campo1 = Identificador y llave de la BD autonumérico
campo2 = descripcion
               
Espero que este pequeño codigo les sirva. Salu2

4
ASP / Re: Problemilla De Novata
« en: Jueves 21 de Diciembre de 2006, 05:39 »
Seria interesante saber que sistema operativo usas?

5
ASP / Error En El Envio De Un Correo Con Odonts
« en: Domingo 16 de Abril de 2006, 07:46 »
Salu2, tiempo sin pasar por el foro. Estoy creando un programa de comentario para los usuarios de una pagina. El codigo es el siguiente
<%
fecha = Request.form("fecha")
email = Request.form("email")
comentario = Request.form("comentario")
'Creamos el Objeto del mail.
Set Mail = Server.CreateObject ("CDONTS.Newmail")
'nuestra direccion de correo.
Mail.From = email
'direccion del destinatario.
Mail.To = "gpaviles@yahoo.com"
'El asunto del mensaje a enviar.
Mail.Subject = "Contacto" + fecha
'Todo el texto que queremos mandar.
Mail.Body = comentario
'Envio del mail....
Mail.Send
'Limpiamos el objeto.
Set Mail = Nothing%>
<br>
y el errrrrro es el siguiente.

Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/cenvioa.asp, line 104
800401f3

la verdad este codigo lo saqe de una pagina, pero parece que no funciona, ahora si alguno de ustedes conoce un sitio donde exista informacion, lo Agradezco, gracias....

6
ASP / Re: Descargar Una Imagen A Una Bd
« en: Lunes 6 de Febrero de 2006, 18:49 »
:comp: Sigon intentando algunas ideas , pero aun no logro el objetivo.... Requiero Ayuda

7
ASP / Despliegue De Registros
« en: Lunes 6 de Febrero de 2006, 18:29 »
Saludos... Estoy pogramando un despliegue de clasificados.
Abro la base de datos sin problemas
<%
'apertura de BD
Set conectar = Server.CreateObject("ADODB.Connection")
conectar.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("clasificados.mdb"))
set clasirs=Server.createobject("ADODB.Recordset")
clasirs.ActiveConnection = conectar
clasirs.Source = "data"
clasirs.open
clasirs.MoveFirst
do while not clasirs.EOF
%>

despliego el primer clsificado, preseleccionado por item dentro de una tabla

<tr>
<td width="319">
<table width="320" border="0">
<tr><td><b><% response.write clasirs("titulo")%></b></td></tr>
<tr><TD><% response.write clasirs("mensaje")%></TD></tr>
<tr><td><% response.write clasirs("email")%></td></tr>
</table>
</td>

deseo desplegar el segundo registro al lado del primero (si existe..)

clasirs.movenext

if clasirs.eof then
despiego la tabla vacia
else
<td width="319">
<table width="320" border="0">
<tr><td><b><% response.write clasirs("titulo")%></b></td></tr>
<tr><TD><% response.write clasirs("mensaje")%></TD></tr>
<tr><td><% response.write clasirs("email")%></td></tr>
</table>
</td>
end if
loop

Ahora cuando aumento el segundo registro ocuurre un error, parece que se pierde la informacion del loop,  Si alguno de ustedes tiene una idea la agradezco... Gracias

8
ASP / Descargar Una Imagen A Una Bd
« en: Viernes 6 de Enero de 2006, 16:28 »
Salud2 y feliz año 2006 a la comunidad de este foro. Mi pregunta es sencilla, pero despues de muchos tragos. la cabeza no da mas... Estoy creando un periodico vecinal, ya camina en su totalidad, ahora deseo que el usuario que esta creando la noticia, descarge a la bd access una imagen de su seleccion. Esta rutina no ha funcionado. Deseo saber si alguin conoce algun sitio dende explique esta rutina con detenimiento. GRAcias

9
JavaScript / Cerrar Una Ventana
« en: Sábado 10 de Diciembre de 2005, 16:07 »
Saludos. Tengo un problema algo interesante, estoy montando un foro, solicito la clave en una ventana individual al crear un nuevo foro de discucion

input type="button" onclick="foronew()" VALUE=" Crear un foro " STYLE="background:#ffffff;font-size:14px;font-family:Arial;color:#202080;">

el script es

function foronew () {
ventana = window.open("cusuario.html", "ventana", "width=180,height=110", "status=0", "toolbar=0");
}

cuado abro la ventana , solicito datos del usuario, pero al entregar control sobre la nueva rutina que valida el usuario, la nueva ventana se queda abierta y el programa se ejecuta en la nueva ventana. La pregunta es cono cerrar esta vntana y cargar en al zona anterior

se muetra
</HEAD>
<script language=JavaScript>

function cerrarse(){
window.close();
}

function validar(){

// valido la existencia de la clave

if (document.foronew.usuario.value.length < 5 ){
alert("*** ERROR *** Debe ingresar el Usuario")
document.foronew.usuario.focus()
return 0;
} // valido la existencia de la clave

if (document.foronew.clave.value.length < 5 ){
alert("*** ERROR *** Debe ingresar la Clave")
document.foronew.clave.focus()
return 0;
}
document.foronew.submit();
cerrarse(); ' aqui da control y no cierra, y si  lo pongo antes cierra y no da control

}

function click(){
if
(event.button==2){
alert("*** ERROR *** Opción Invalida")
}
}
document.onmousedown=
click
// -->
</SCRIPT>
</HEAD>
<BODY bgcolor="#004080" text="#000099" link="#ffffff" vlink="#D5F5C7" alink="#ffffff" topmargin="0" leftmargin="0">
<FORM NAME="foronew" METHOD="post" ACTION="cincluir.asp">
<table width=190 border="0">
<tr>
<td width=35%><font STYLE="font-size:12px; font-family:Arial;text-decoration: none; color: #ffffff">Usuario</font></td>
<td width=65%><input type=text size=11 maxlength=10 STYLE="background:#ffffff;color:#339900;" name="usuario"><td>
</tr>
<tr>
<td><font STYLE="font-size:12px; font-family:Arial;text-decoration: none; color: #ffffff">Clave</font></td>
<td><input type=password size=11 maxlength=10 STYLE="background:#ffffff;color:#339900;" name="clave"></font>
</tr>
<tr>
<td colspan="2" align="Center"><hr size="1" color="#fffff"></td>
</tr>
<tr>
<td colspan="2" align="Center"><INPUT TYPE="button" onclick="validar()" STYLE="background:#ffffff;color:#855E42;" VALUE="Crear Foro"></td>
</tr>
</table>
</FORM>

se valida que los campos esten llenos y NO SE CIERRA LA VENTANA Gracia por cualquier ayuda

10
ASP / Re: Como Crear Un Buscador
« en: Jueves 27 de Octubre de 2005, 15:37 »
Gracias hare la prueba, y los mantengo informados..

11
ASP / Como Crear Un Buscador
« en: Miércoles 26 de Octubre de 2005, 04:16 »
Saludos a todos.

Estoy tratando de crear un buscador. tengo una estructura de dados de varios campos, uno en particular  que tiene una direccion de una imagen, y otro campo tiene la descripcion de la imagens

campo1  imagen.tif
campo2  esta es una imagen de un perro y su amo

al realziar una consulta , ej.  perro, y comparar el campo de consulta con el de la  descripcion, no obtengo ningun resultado, ya que  como es logico
"perro" no es igual a  "esta es una imagen de un perro y su amo"

tal vez estoy haciendo mal la consulta, pero no he obtenido resultados favorables, por supuesto si la frase es completa hay concordancia, Si alguien tiene una sugerencia o alguna pagina donde buscar info. se los agradezaco.. Gracias

12
ASP / Re: Problema Con El Paso De Varibls
« en: Miércoles 7 de Septiembre de 2005, 17:51 »
GRACIAS. El problema esta resuelto.  Como uno elimina sus cosnsultas a este for, cuando el problema ya esta corregido. Deberia de existir esta opcion en el panel de foro.. "Eliminar esta discucio", y asi solo el que la inicio la puede eliminar.... salu2

13
ASP / Re: Sos No Quiere Eliminar El Registro
« en: Miércoles 7 de Septiembre de 2005, 17:46 »
El codigo esta bien. Solo tenia un error en la definicion del ODBC, estaba direccionando a otro lado... GRACIAS

14
ASP / Sos No Quiere Eliminar El Registro
« en: Miércoles 7 de Septiembre de 2005, 00:09 »
Saludos. Estoy intentando eliminr u registro de una BD, tengo tosdos los permiso ok "control total". uso el sig. codigo y no se elimina el registro

'CONECTO A LA BASE DE DATOS

Set conectar = Server.CreateObject("ADODB.Connection")
conectar.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("listamae.mdb"))
set registrars=Server.createobject("ADODB.Recordset")
registrars.ActiveConnection = conectar
registrars.Source = "maestro"
registrars.LockType = 2
registrars.open
registrars.MoveFirst
do while not registrars.EOF
'HAGO UNA CONSULTA, PARA SELECCIONAR EL REGISTRO
if ( registrars("documento") = session("apdocumento")) then
%>
<table width="80%" border="0" CELLPADDING="2" CELLSPACING="2">
<tr bgcolor="#eeeeee">
<td valign="top" width="25%" >Codigo</td>
<td valign="top" width="75%" ><% response.write registrars("codigo")%>
</tr>
<tr>
<td valign="top" width="25%" >Documento</td>
<td valign="top"><% response.write registrars("documento") %>
</tr>
<tr bgcolor="#eeeeee">
<td valign="top" width="25%" >Fecha de emisión</td>
<td valign="top"><% response.write registrars("fechaemi") %>
</tr>
<tr>
<td valign="top" width="25%" >Ultima revisión</td>
<td valign="top"><% response.write registrars("urevision") %>
</tr>
<tr bgcolor="#eeeeee">
<td valign="top" width="25%" >Numero de revisión</td>
<td valign="top"><% response.write registrars("nrorevision") %>
</tr>
<tr>
<td valign="top" width="25%" >Estatus</td>
<td valign="top"><% response.write registrars("estatus") %>
</tr>
</table>
<%
'UNA VEZ SELECIONADO LO ELIMINO
registrars.delete
registrars.update
end if
registrars.movenext
loop
registrars.close
conectar.close
Set registrars = nothing
Set conectar = nothing
%>
PERO NO ELINA NADA Y DA EL SIGIIENTE ERROR
"No se pudo eliminar nada en las tablas especificadas."

AGRADEZCO CUALQUIER AYUDA. GRACIAS

15
ASP / Sos No Quiere Eliminar El Registro
« en: Miércoles 7 de Septiembre de 2005, 00:09 »
Saludos. Estoy intentando eliminr u registro de una BD, tengo tosdos los permiso ok "control total". uso el sig. codigo y no se elimina el registro

'CONECTO A LA BASE DE DATOS

Set conectar = Server.CreateObject("ADODB.Connection")
conectar.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("listamae.mdb"))
set registrars=Server.createobject("ADODB.Recordset")
registrars.ActiveConnection = conectar
registrars.Source = "maestro"
registrars.LockType = 2
registrars.open
registrars.MoveFirst
do while not registrars.EOF
'HAGO UNA CONSULTA, PARA SELECCIONAR EL REGISTRO
if ( registrars("documento") = session("apdocumento")) then
%>
<table width="80%" border="0" CELLPADDING="2" CELLSPACING="2">
<tr bgcolor="#eeeeee">
<td valign="top" width="25%" >Codigo</td>
<td valign="top" width="75%" ><% response.write registrars("codigo")%>
</tr>
<tr>
<td valign="top" width="25%" >Documento</td>
<td valign="top"><% response.write registrars("documento") %>
</tr>
<tr bgcolor="#eeeeee">
<td valign="top" width="25%" >Fecha de emisión</td>
<td valign="top"><% response.write registrars("fechaemi") %>
</tr>
<tr>
<td valign="top" width="25%" >Ultima revisión</td>
<td valign="top"><% response.write registrars("urevision") %>
</tr>
<tr bgcolor="#eeeeee">
<td valign="top" width="25%" >Numero de revisión</td>
<td valign="top"><% response.write registrars("nrorevision") %>
</tr>
<tr>
<td valign="top" width="25%" >Estatus</td>
<td valign="top"><% response.write registrars("estatus") %>
</tr>
</table>
<%
'UNA VEZ SELECIONADO LO ELIMINO
registrars.delete
registrars.update
end if
registrars.movenext
loop
registrars.close
conectar.close
Set registrars = nothing
Set conectar = nothing
%>
PERO NO ELINA NADA Y DA EL SIGIIENTE ERROR
"No se pudo eliminar nada en las tablas especificadas."

AGRADEZCO CUALQUIER AYUDA. GRACIAS

16
ASP / Falla En El Iis
« en: Sábado 3 de Septiembre de 2005, 01:39 »
Saludos a todos. Espero que alguien tenga una respuesta. Luego de esrtar corriendo rutinas para un programa que estoy montando y de un dia para otro dejo se funcionar el IIs, lo desistale y lo volvi a cargar y sigue muerto. Puedo leer datsos de BD Acces, si problema pero no me deja actualziar ni eliminar. Rutinas que funcionaban correctamente, luego de un arduo trabajo y varias cobsultas, simplemente dejaros de funcionar. Si alguien tiene una idea o conoce un site desde donde se pueda descargar una version actualizada de IIs. Avise .  Gracias. Creo que llego la hora de migrar a PHP, espero que este lenguaje no sea complicado.

17
ASP / Re: Problema Con El Paso De Varibls
« en: Domingo 28 de Agosto de 2005, 00:50 »
Hola, estoy enviando una variable con este script

function tomar(f) {
envio=f.elements[0].value
window.navigate("solactual.asp?dato=" + envio);
}

tomo la variables de esta forma

<form>
<input type="hidden" name="id" value=<%=registrars("documento") %>>
<input type="button" onclick="tomar(this.form)" VALUE="Adjuntar documento" STYLE="background:#ffffff;font-size:10px;font-family:Arial;color:#802020;"></form>

esto lo hace perfecto si la variable contiene  "hola", se pasa "hola" al otro programa, pero si la variable contiene  "mañana es viernes y vamos a salir", solamente pasa al otro programa  "mañana", alguien me dijo que habia que usar la condicion ENCODE y despues decode, pero no tengo idea de como usarla , si me pueden decir donde buzcar informacion, les agradezco de antemano. Gracias

18
ASP / Re: Problemas Con El Paso De Parametro De Html A Asp
« en: Jueves 11 de Agosto de 2005, 07:15 »
Ya lo probe, y me pasa al otro progaa envio.value, esta asumiendo la variable como caracteres

ahora use este

function tomar(f) {
var envio = f.elements[0].value;
alert(envio)
self.location="solaprobar.asp?id=var envio";
}

y respnde undefined

ya no se me ocurre otra alternativa

la pagina recibe

id=request.querystring("id")


si se te ocurre alguna otra idea, que no sean cookies o variables de session. avisamen Gracias

19
ASP / Problemas Con El Paso De Parametro De Html A Asp
« en: Martes 9 de Agosto de 2005, 21:59 »
Saludos. Bueno ya solucione el problema con la tabla , que desplegaba varios registro y deseaba tomar un dato en particular

use lo siguiente:
<td width=14% align="center">
<form>
<input type="hidden" name="id" value=<%=registrars("numero") %>>
<input type="button" onclick="tomar(this.form)" VALUE="Aprobar" STYLE="background:#ffffff;font-size:10px;font-family:Arial;color:#808020;">
</form>
</td>

la funcion es la siguiente

function tomar(f) {
var envio = f.elements[0].value;
self.location="solaprobar.asp?id=envio";
}

Aqui hay algun errrrror, ya que el programa de ASp, toma como valor "envio", pero no el valor que es o que tine la varable nvio

Probe

self.location="solaprobar.asp?id=envio.value"; (da errror). Si algien tiene alguna sugerencia

20
ASP / Re: Problena Al Pasar Info Entre Dos Paginas
« en: Sábado 6 de Agosto de 2005, 18:26 »
Ahora te doy el codigo completo, aplique tu solucion, pero no pasa a la funcion, este es el codigo.
<HTML>
<HEAD>
<TITLE>Solicitud de documentos</TITLE>
<META HTTP-EQUIV="Content-type" CONTENT="text,html ; charset=iso-8859-1">
<META name="author" content="Guillermo Avilés Labrín - 0414.117.30.44">
<META http-equiv="Page-Exit" content="revealTrans(duration=2,Transition=6)">
<script languaje="JavaScript">
function salto() {
var resultado = confirm ('Desea imprimir su registro');
if (resultado) {
                  if (window.print)
                {
                             window.print()
                             self.location="solinicio.html";
                }
                    else
                    alert("Disculpe, su navegador no soporta esta opción.");
            }
else
self.location="solinicio.html";
}

function aprobar() {
alert("*** ERROR *** ") ;
}
</SCRIPT>
</HEAD>
<BODY bgcolor=#ffffff text="#000099" link="#ffffff" vlink="#D5F5C7" alink="#ffffff" topmargin="0" leftmargin="0">
<br>
<center>
<table border=0 width=80%>
<tr>
<td>
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"
WIDTH=600 HEIGHT=125>
<PARAM NAME=movie VALUE="header.swf"> <PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#FFFFFF>
  <EMBED src="header.swf" quality=high bgcolor=#FFFFFF  WIDTH=600 HEIGHT=125 TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></EMBED></OBJECT>
</td>
<td align=center width=20%>
<script languaje="JavaScript">
     mesarray=new Array("Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio","Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre");
     diaarray=new Array( "Domingo","Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado");
      hoy = new Date();
      dias = hoy.getDate();
      dia = hoy.getDay();
      mes = hoy.getMonth();
     mes=mesarray[mes];
      dia =diaarray[dia];
      anno = hoy.getYear();
      if (anno <200)
        anno = anno+1900;
      document.write('<TABLE WIDTH="80" height="80" BORDER="2" CELLSPAN="2"  BGCOLOR="#ffffff"><TR><TD><CENTER>');
      document.write('<FONT SIZE="2" COLOR="#202080"> <B>'+mes+'</B></FONT><br>');
      document.write('<FONT SIZE="1" COLOR="#202080">'+anno+'</FONT><br>');
      document.write('<FONT SIZE="4" COLOR="#202080" FACE="Arial"><B>'+dias+'</B></FONT><br>');
      document.write('<FONT SIZE="1" COLOR="#202080" FACE="Arial">'+dia+'</FONT><br>');
      document.write('</CENTER></TR></TD></TABLE>');
 </SCRIPT>
</tr>
<tr><td colspan=2><Hr></tr>
<tr><td colspan=2 align="center"><font color=#202080 sise=3>Documentos - Carlos Añazco</font></td></tr>
<tr><td colspan=2><Hr></tr>
</table>
<br>
<table width="86%" border="0" bgcolor="#ccffcc">
<tr>
<td width=4% align="left"><font color="#202080">ID</font></td>
<td width=16%><font color="#202080">FECHA</font></td>
<td width=12%><font color="#202080">TIPO</font></td>
<td width=14%><font color="#202080">ESTATUS</font></font></td>
<td><font color="#202080">DOCUMENTO</font></td>
</tr>
</table>
<br>
<%
 Set conectar = Server.CreateObject("ADODB.Connection")
 conectar.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("soldatos.mdb"))
 set registrars=Server.createobject("ADODB.Recordset")
 registrars.ActiveConnection = conectar
 registrars.Source = "solicitud"
 registrars.CursorType = adOpenKeySet
 registrars.open
 registrars.MoveFirst
 do while not registrars.EOF
 if  (registrars("responsable")= "Carlos Añazco" ) then
  %>
       <table width="86%" border="0">
     <tr>
     <td width=4% valign="top"><%Response.Write registrars("numero")%></td>
     <td width=16% valign="top"><%Response.Write registrars("fecha")%></td>
     <td width=12% valign="top"><%Response.Write registrars("tiposol")%></td>
     <td width=14% valign="top"><font color=red><%Response.Write registrars("estatus")%></font></td>
     <td valign="top"><%Response.Write registrars("documento")%></td>
       <td width=14% align="center"><form><input type="button" STYLE="background:#ffffff;font-size:10px; font-family:Arial; color:#808020;" VALUE="Aprobar"  onclic="aprobar(<%=registrars.Fields("numero")%>);"></form></td>
     </tr>
       </table>
 <%
 end if
 registrars.movenext
 loop
 registrars.close
 conectar.close
 Set registrars = nothing
 Set conectar = nothing
%>

<br>
<table width="86%" border="0">
<tr><td colspan=2><Hr></tr>
<table>
<form>
<INPUT TYPE="button" onclick="salto()" STYLE="background:#eeeeee;color:#855E42;" VALUE="Ir a la página principal"></center>
</form>
</body>
</html>

Agredezco cualquier respuesta

21
ASP / Re: No Puedo Actualizar Un Registro
« en: Viernes 5 de Agosto de 2005, 06:44 »
Este codigo lo hace ok

Set conectar = Server.CreateObject("ADODB.Connection")
conectar.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("basededatos.mdb"))
Set rs=Server.createobject("ADODB.Recordset")
rs.ActiveConnection = conectar
rs.Source = "solicitud"
rs.LockType = 2    'Importante, aqui le das permiso a la BD para grabar
rs.open

rs("valor")="lo que sea"

rs.update

rs.close
conectar.close
Set rs = nothing
Set conectar = nothing
%>

Espero que te sirva .. OONAI

22
ASP / Re: Problena Al Pasar Info Entre Dos Paginas
« en: Viernes 5 de Agosto de 2005, 05:58 »
GRACIA. Tomare en cuenta esa sugerencia, Ahora el problema es otro, tal vez no me explique correctamente

Este es el codig del primer programa {este prograa despiega una lista de registros en una BD, cuando el cliente selecioan el boton, se va a otro programa y ejecuta modificaciones tipo update, en este registro en particular}

<br>
<%
Set conectar = Server.CreateObject("ADODB.Connection")
conectar.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("soldatos.mdb"))
set registrars=Server.createobject("ADODB.Recordset")
registrars.ActiveConnection = conectar
registrars.Source = "solicitud"
registrars.CursorType = adOpenKeySet
registrars.open
registrars.MoveFirst
do while not registrars.EOF
 if  (registrars("responsable")= "nnnn nnnnn nnnnn" ) then
%>
<table width="86%" border="0">
<tr>
<td width=4% valign="top"><%Response.Write registrars("numero")%></td>
<td width=16% valign="top"><%Response.Write registrars("fecha")%></td>
<td width=12% valign="top"><%Response.Write registrars("tiposol")%></td>
<td width=14% valign="top"><font color=red><%Response.Write registrars("estatus")%></font></td><td valign="top"><%Response.Write registrars("documento")%></td><td width=14% align="center"><form NAME="ap" METHOD="post" ACTION="solaprobar.asp"><input type="text" onclic="Funcion(<%=registrars.Fields("numero")%>);"><INPUT TYPE="hidden" name="vlink" value="solprog1.asp" ><INPUT TYPE="submit" STYLE="background:#ffffff;font-size:10px; font-family:Arial; color:#808020;" VALUE="Aprobar"></form></td>
</tr>
<table>
 <%
 end if
 registrars.movenext
 loop
 registrars.close
 conectar.close
 Set registrars = nothing
 Set conectar = nothing
%>

El otro programa , lee el ID (se llama numero), y procesa ese registro en particular, an no he probajo el codigo ue me pasastes, pero creo que tendras una mejorr vision de la idea. De antemano muchas Gracias....

23
ASP / Re: De Pws A Iis
« en: Jueves 4 de Agosto de 2005, 00:21 »
GRCIAS. YA he cambiado la mayoria de los progra,as, el mayor erroe es la lectuar ... MUCHAS BGRACIAS

24
ASP / Problena Al Pasar Info Entre Dos Paginas
« en: Jueves 4 de Agosto de 2005, 00:16 »
hOLA,,tengo un pequeño problema, al pasar informacion entre dos paginas,

leo una base de datso correctamente, y la despliego usando un recordset y tablas, la lista se despliega automaticamente, ella tiene un campo auto munerico que identifica el registro , unico, lo que deseo es que al tocat un boton, <for type"botton" onclick funcion()>, esta me pase a otro programa que actualiza uno de los campor desplegados, p1.asp---> manda var --> p2.asp, actualiza y regresa a p1.asp, He probado un monton de codigos y aun no logro pasas este dato, el cual se despiega correctmente en la lista. Si alguien tiene uan idea, usando el recordset , o ha realizado un programa similar, , lo agradecere. Solo me hace falt la linea de codigo que pasa e dato, lo demas funciona correctamente, Probe una simulacion usandio una variable con un dato ficticio. y funciono correctamente, solo quiero que el usuario finl haga click en un boton y este campo se actualiza solo.... gpaviles@yahoo.com GRACIAS

25
ASP / De Pws A Iis
« en: Viernes 10 de Junio de 2005, 23:42 »
Hola amigos de solo codigo, tengo un problema , estoy reescribiendo varios programas que caminaban muy bien el win98, bajo PWS, ahora he actualizado mi sistema a XP, y he instalaso el IIS, el cual corre muy bien, cuando cooro el istema, comienzan a salir una serie de errores , como META inexistentes, Problemas col el archiovo GLOBAL.ASA, y un sinnumero de otros errores, algunos los he corregido, este sistema cunat de una base de datos Accssses  ocn 49 vistas, control de accesos y demasn, ..., ahora mi pregunta es si existe algun programa que convierta las rutinas que corren en PWS, para que corrar en IIS.. Gracias

Páginas: [1] 2