Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 No puedo pasar valores de un programa a otro
 Foro Bloqueado  Tema Bloqueado


Autor Temas
oonai
Starting Member

Venezuela
14 Posts
Mensajes - 06 Aug 2005 :  18:29:51  Ver Perfil  Enviar Email
Agradezco cualquier ayuda, no puedo pasar un valor de un programa ASP a otro.,
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&aacute;gina principal"></center>
</form>
</body>
</html>

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

 Imprimir Tema
 

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

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar