|
|
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.
Temas - oonai
Páginas: [1]
1
« 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
2
« 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
3
« 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....
4
« 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
5
« 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
6
« 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
7
« 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
8
« 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
9
« 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
10
« 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.
11
« 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
12
« 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
13
« 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
14
« 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
15
« en: Domingo 20 de Marzo de 2005, 16:47 »
Saludos
Alguien sabe ccual es el codigo para realizar una impresion en la oficina de un cliente cuando alguien en la red da cllick a envir formulario?
Gracias
16
« en: Domingo 20 de Marzo de 2005, 16:45 »
Saludos
Estoy tratando de enviar un formulario, con un archivo anexo, El anexo en iun archivo que contien una nota de pedido, y debe enviarse tal cual es, si aluno sabe cono hacerlo Gracia
Páginas: [1]
|
|
|
Mostrar Mensajes
