|
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
1
« 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
« 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
« 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
« en: Jueves 21 de Diciembre de 2006, 05:39 »
Seria interesante saber que sistema operativo usas?
5
« 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
« en: Lunes 6 de Febrero de 2006, 18:49 »
Sigon intentando algunas ideas , pero aun no logro el objetivo.... Requiero Ayuda
7
« 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
« 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
« 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
« en: Jueves 27 de Octubre de 2005, 15:37 »
Gracias hare la prueba, y los mantengo informados..
11
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
|
|
|