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 - poncho cantu

Páginas: [1]

ASP / Ayuda Urgente Con Asp

« en: Sábado 20 de Diciembre de 2003, 18:04 »

Holaa todos estoy hasiendo un programita super sencillo,para las inscripcion en linea para los alumnos de mi secundaria,pero el ddtalales ke kuando capturo los datos y le doy enviar,me marca un herror de ke no se encuentras la pagina y al checar en el servuidor donde esta hospedada hai si aparece,alguien me podria ayudar. y otras xcosa no logro haser ke me mustre los datos ke capturo y no me aparecen en la dase de datos. aki les dejo el funte ke tengo de ambos archivos...
Captura y envio:

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN//3.0">
<HTML>
<HEAD><TITLE>Captura y Envio de datos a SisMaLi</TITLE></HEAD>
<BODY>

Aquí debes poner tus datos para enviarlos al SisMaLi.<BR><BR>

<FORM ACTION="03guardadatos.asp" METHOD=post>
Nombre:
<INPUT TYPE="Text" NAME="nombre" SIZE=20><BR><BR>
1 Apellido: <INPUT TYPE="Text" NAME="ApellidoPat" SIZE=20><BR><BR>
2 Apellido: <INPUT TYPE="Text" NAME="ApellidoMat" SIZE=20><BR><BR>
Dirección: <INPUT TYPE="Text" NAME="Direccion" SIZE=30><BR><BR>
colonia: <INPUT TYPE="Text" NAME="Colonia" SIZE=30><BR><BR>
Teléfono: <INPUT TYPE="Text" NAME="Telefono" SIZE=20><BR><BR>
Fecha de nacimiento: <INPUT TYPE="Text" NAME="anonacimiento" SIZE=20><BR><BR>
Grado:
<SELECT NAME="Grado" MULTIPLE SIZE=1>
<OPTION VALUE="1º MAT">1º MAT
<OPTION VALUE="1º VES">1º VES
<OPTION VALUE="2º MAT">2º MAT
<OPTION VALUE="2º VES">2º VES
<OPTION VALUE="3º MAT">3º MAT
<OPTION VALUE="3º VES">3º VES
</SELECT>

<INPUT TYPE="Submit" NAME="enviar" VALUE="Enviar" SIZE=8>
</FORM>

</BODY>
</HTML>

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Confirmacion d edatos Enviados:

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN//3.0"><HTML>
<HEAD>
<TITLE>Confirmación de Datos Del SisMaLi</TITLE>
</HEAD>
<BODY>
<%
Nombre = Request.Form("Nombre")
Apellido PAT= Request.Form("ApellidoPAT")
Apellido MAT= Request.Form("ApellidoMAT")
Direccion = Request.Form("Direccion")
Colonia= Request.Form("Colonia")
Telefono = Request.Form("Telefono")
Anonacimiento= Request.Form("Anonacimiento")
Grado al que se Inscribe = Request.Form("Grado")

Set con = Server.CreateObject("ADODB.Connection")
con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/03instituto.mdb"))

sql= "INSERT INTO alumnos(Nombre, ApellidoPat, ApellidoMat, Dirección, colonia,Teléfono,anonacimiento,Grado)"
sql = sql & "VALUES('"&Nombre&"' ,'"&ApellidoPat&"','"&ApellidoMat&"','"&Direccion&"','"&Colonia&"' ," &Telefono&","&Anonacimiento&",'"&Grado al que se Inscribe&"')"

con.Execute(sql)
%>

Su nombre es: <% = Request.Form("Nombre") %><BR>
Sus apellidos son: <% = Request.Form("ApellidoPat") %> <% = Request.Form("ApellidoMat") %><BR>
Su dirección: <% = Request.Form("Direccion") %><BR>
Su Colonia: <% = Request.Form("Clonia") %><BR>
Su teléfono: <% = Request.Form("Telefono") %><BR>
Fecha de nacimiento: <% = Request.Form("Anonacimiento") %><BR>
Grado: <% = Request.Form("Grado") %><BR><BR>
<strong>Gracias Sus Datos Ya Están Almacenados En La Base De Datos De</strong>
<font size="6"><em>SISMALI</em></font>.<BR>
<BR>
<%
If Err = 0 Then
Response.Write "Inserción correcta"
Else
Response.Write "Error de datos"
End If
con.Close
Set con=Nothing
%>

<script LANGUAGE="JavaScript">
</SCRIPT>

<HR>
</BODY>
</HTML>

si alguien me podria ayudar por favor....

atte: poncho cantu"

Dudas informáticas / Voy Al Grano Ayuda Urgente

« en: Domingo 14 de Diciembre de 2003, 04:55 »

Miren soy nuevo en este foro apenas hoy me inscribi en el ....
mi problema es con un programa de calificaciones esta echo en asp memarca erroes y apaenas lo subi hase 3 meses. mi pregunta es la siguente si alguier realmente me podria ayudar con un programa de este tipo aunke no sea en asp ke sea en la plataforma distinta, solo ke me capture y consulte las calificaciones(via internet)....
si hay alguien ke me kiera ayudar o porke no francamente hablando vender o cambiar por algo ke neseciten por el programita de consuilta d ecalificaciones...

en estos momentos tengo disponibles 1 procecadore PIII consu tarjeta madre, 1 disco duro de 10 gb 1 modulo de 128 mb de memoria DDR.

por si alguien le intereza el intercambio poues con toda confianza....

NOTA: señor moderador de este respetable foro le agradeceria ke no me fuera a borrar este mensaje, por el comentario de ke hago de intercambio,ya ke en estos momentos estoy sumamnete desesperado y angustiado por no poder allar una solucion ami problema...

ASP / Re: Busco hosting gratuito con soporte ASP y MYSQL

« en: Domingo 14 de Diciembre de 2003, 04:25 »

miestimado fink el siti ke yo te podria recomendar ampliamente es :
www.brinkster.com

espero ke no sea demaciado tarde mi respuesta pero paenas hoy me di de asltas....
saludos poncho cantu

ASP / Re: Chat

« en: Domingo 14 de Diciembre de 2003, 04:21 »

-Bueno soy yo de nuevo peor en esta ocacion,el ke nececita ayuda soy yo.
miren tengo un problemon con un programa echo en asp ke hase consultas d ecalificaciones en excel.
me marca erores ala hora de traerme las calificaciones me manda nombres de noson por ejemplo en el nombre d elas materiasme ponse "f22" o "f46" la verdad no entiendo.....
les voy a poner el codigo el error me lo da en la line 176..
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'color notas reprobadas
Sub rojo(nota)
    if nota <=5 Then
      response.Write("color=""red""")
      End if
End Sub
'promedios
Sub suma(valor)
   If valor<>0 Then
      total=total+valor
      denominador=denominador+1
   End If
End Sub

'Asigna a la variable Path la ruta del archivo xls
grupo= Request.Form("grupo")
periodo= Request.Form("periodo")
lista= Request.Form("lista")
Path=Server.MapPath("db/WEBGRUPO" & grupo & "-" & periodo)

'Establece una conexión entre el servidor asp y una base de datos
Set ConexionBD = Server.CreateObject("ADODB.Connection")

'Abrimos el objeto con el driver específico para Microsoft Excel
ConexionBD.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Path

'Crea un objeto de tipo recordset para retornar la consulta sql
Set rsVac = Server.CreateObject("ADODB.Recordset")
Set rsVac2 = Server.CreateObject("ADODB.Recordset")

'Se abre el recordset, señalando como tabla el rango de celdas Excel llamado Feriado.
rsVac.Open "Select * From A2:BX52 Where N_LISTA = " & lista & " ", ConexionBD,3,3
rsVac2.Open "Select * From A1:BV1", ConexionBD,3,3
%>
<html>
<head>
<title>Notas de alumno <%=rsVac(1)%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="ponciano.css" type="text/css">
</head>

<body>
<p align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><img src="logo.gif" width="490" height="69"><br>
<br>
Alumno:<font color="#0099FF"> <%=rsVac(1)%><br>
</font></strong></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Curso:
<strong><%=grupo%></strong></font></p>
<table border="1" align="center" cellpadding="1" cellspacing="0">
<tr bgcolor="#666699">
<td align="center"><b><font color="white"><strong>Asignatura</strong></font></b></td>
<td align="center"><b><font color="white">
<div align="center"><strong><%=rsVac.Fields.Item(2).Name%></strong></div>
</font></b></td>
<td align="center"><b><font color="white">
<div align="center"><strong><%=rsVac.Fields.Item(3).Name%></strong></div>
</font></b></td>
<td align="center"><b><font color="white">
<div align="center"><strong><%=rsVac.Fields.Item(4).Name%></strong></div>
</font></b></td>
<td align="center"><b><font color="white">
<div align="center"><strong><%=rsVac.Fields.Item(5).Name%></strong></div>
</font></b></td>
<td align="center"><b><font color="white">
<div align="center"><strong><%=rsVac.Fields.Item(6).Name%></strong></div>
</font></b></td>
<td align="center"><b><font color="white">
<div align="center"><strong><%=rsVac.Fields.Item(7).Name%></strong></div>
</font></b></td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFCC"><strong><%=rsVac2.Fields.Item(3).Name%></strong></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(2)))%>> <%=rsVac(2)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(3)))%>> <%=rsVac(3)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(4)))%>> <%=rsVac(4)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(5)))%>> <%=rsVac(5)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(6)))%>> <%=rsVac(6)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(7)))%>><strong> <%=rsVac(7)%></strong></font></div></td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFCC"><strong><%=rsVac2.Fields.Item(9).Name%></strong></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(8)))%>> <%=rsVac(8)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(9)))%>> <%=rsVac(9)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(10)))%>> <%=rsVac(10)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(11)))%>> <%=rsVac(11)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(12)))%>> <%=rsVac(12)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(13)))%>><strong> <%=rsVac(13)%></strong></font></div></td>
</tr>
<tr>
<td align="left" bgcolor="#CCFF99"><strong> <%=rsVac2.Fields.Item(15).Name%></strong></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(14)))%>> <%=rsVac(14)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(15)))%>> <%=rsVac(15)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(16)))%>> <%=rsVac(16)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(17)))%>> <%=rsVac(17)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(18)))%>> <%=rsVac(18)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(19)))%>><strong> <%=rsVac(19)%></strong></font></div></td>
</tr>
<tr>
<td align="left" bgcolor="#CCFF99"><strong> <%=rsVac2.Fields.Item(21).Name%></strong></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(20)))%>> <%=rsVac(20)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(21)))%>> <%=rsVac(21)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(22)))%>> <%=rsVac(22)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(23)))%>> <%=rsVac(23)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(24)))%>> <%=rsVac(24)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(25)))%>><strong> <%=rsVac(25)%></strong></font></div></td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFCC"><strong> <%=rsVac2.Fields.Item(26).Name%></strong></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(26)))%>> <%=rsVac(26)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(27)))%>> <%=rsVac(27)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(28)))%>> <%=rsVac(28)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(29)))%>> <%=rsVac(29)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(30)))%>> <%=rsVac(30)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(31)))%>><strong> <%=rsVac(31)%></strong></font></div></td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFCC"><strong><%=rsVac2.Fields.Item(33).Name%></strong></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(32)))%>> <%=rsVac(32)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(33)))%>> <%=rsVac(33)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(34)))%>> <%=rsVac(34)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(35)))%>> <%=rsVac(35)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(36)))%>> <%=rsVac(36)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(37)))%>><strong> <%=rsVac(37)%></strong></font></div></td>
</tr>
<tr>
<td align="left" bgcolor="#CCFF99"><strong> <%=rsVac2.Fields.Item(39).Name%></strong></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(38)))%>> <%=rsVac(38)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(39)))%>> <%=rsVac(39)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(40)))%>> <%=rsVac(40)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(41)))%>> <%=rsVac(41)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(42)))%>> <%=rsVac(42)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(43)))%>><strong> <%=rsVac(43)%></strong></font></div></td>
</tr>
<tr>
<td align="left" bgcolor="#CCFF99"><strong><%=rsVac2.Fields.Item(45).Name%></strong></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(44)))%>> <%=rsVac(44)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(45)))%>> <%=rsVac(45)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(46)))%>> <%=rsVac(46)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(47)))%>> <%=rsVac(47)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(48)))%>> <%=rsVac(48)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(49)))%>><strong> <%=rsVac(49)%></strong></font></div></td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFCC"><strong><%=rsVac2.Fields.Item(50).Name%></strong></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(50)))%>> <%=rsVac(50)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(51)))%>> <%=rsVac(51)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(52)))%>> <%=rsVac(52)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(53)))%>> <%=rsVac(53)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(54)))%>> <%=rsVac(54)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(55)))%>><strong> <%=rsVac(55)%></strong></font></div></td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFCC"><strong> <%=rsVac2.Fields.Item(56).Name%></strong></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(56)))%>> <%=rsVac(56)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(57)))%>> <%=rsVac(57)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(58)))%>> <%=rsVac(58)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(59)))%>> <%=rsVac(59)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(60)))%>> <%=rsVac(60)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(61)))%>><strong> <%=rsVac(61)%></strong></font></div></td>
</tr>
<tr>
<td align="left" bgcolor="#CCFF99"><strong> <%=rsVac2.Fields.Item(62).Name%></strong></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(62)))%>> <%=rsVac(62)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(63)))%>> <%=rsVac(63)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(64)))%>> <%=rsVac(64)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(65)))%>> <%=rsVac(65)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(66)))%>> <%=rsVac(66)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(67)))%>><strong> <%=rsVac(67)%></strong></font></div></td>
</tr>
<tr>
<td align="left" bgcolor="#CCFF99"><strong>
<%
   If rsVac2.Fields.Item(68).Name=" EDUCACIÓN TECNOLÓGICA" or rsVac2.Fields.Item(68).Name="EDUCACIÓN TECNOLÓGICA" or rsVac2.Fields.Item(68).Name="Educación Tecnológica" Then %>
<%=rsVac2.Fields.Item(68).Name%>
<%    End if %>
</strong></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(68)))%>> <%=rsVac(68)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(69)))%>> <%=rsVac(69)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(70)))%>> <%=rsVac(70)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(71)))%>> <%=rsVac(71)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(72)))%>> <%=rsVac(72)%></font></div></td>
<td bgcolor="#CCFF99"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(rsVac(73)))%>><strong> <%=rsVac(73)%></strong></font></div></td>
<%
'promedios
'promedio 1 periodo
total=0
denominador=0
suma(int(rsVac(2)))
suma(int(rsVac(8)))
suma(int(rsVac(14)))
suma(int(rsVac(20)))
suma(int(rsVac(26)))
suma(int(rsVac(32)))
suma(int(rsVac(38)))
suma(int(rsVac(44)))
suma(int(rsVac(50)))
suma(int(rsVac(56)))
suma(int(rsVac(62)))
suma(int(rsVac(68)))
if denominador<>0 Then
   promedio1= total / denominador
End if

'promedio2
total=0
denominador=0
suma(int(rsVac(3)))
suma(int(rsVac(9)))
suma(int(rsVac(15)))
suma(int(rsVac(21)))
suma(int(rsVac(27)))
suma(int(rsVac(33)))
suma(int(rsVac(39)))
suma(int(rsVac(45)))
suma(int(rsVac(51)))
suma(int(rsVac(57)))
suma(int(rsVac(63)))
suma(int(rsVac(69)))
if denominador<>0 Then
   promedio2= total / denominador
End if

'promedio3
total=0
denominador=0
suma(int(rsVac(4)))
suma(int(rsVac(10)))
suma(int(rsVac(16)))
suma(int(rsVac(22)))
suma(int(rsVac(28)))
suma(int(rsVac(34)))
suma(int(rsVac(40)))
suma(int(rsVac(46)))
suma(int(rsVac(52)))
suma(int(rsVac(58)))
suma(int(rsVac(64)))
suma(int(rsVac(70)))
if denominador<>0 Then
   promedio3= total / denominador
End if

'promedio4
total=0
denominador=0
suma(int(rsVac(5)))
suma(int(rsVac(11)))
suma(int(rsVac(17)))
suma(int(rsVac(23)))
suma(int(rsVac(29)))
suma(int(rsVac(35)))
suma(int(rsVac(41)))
suma(int(rsVac(47)))
suma(int(rsVac(53)))
suma(int(rsVac(59)))
suma(int(rsVac(65)))
suma(int(rsVac(71)))
if denominador<>0 Then
   promedio4 = total / denominador
End if

'promedio5
total=0
denominador=0
suma(int(rsVac(6)))
suma(int(rsVac(12)))
suma(int(rsVac(18)))
suma(int(rsVac(24)))
suma(int(rsVac(30)))
suma(int(rsVac(36)))
suma(int(rsVac(42)))
suma(int(rsVac(48)))
suma(int(rsVac(54)))
suma(int(rsVac(60)))
suma(int(rsVac(66)))
suma(int(rsVac(72)))
if denominador<>0 Then
   promedio5 = total / denominador
End if

'promedio de promedios
total=0
denominador=0
suma(int(rsVac(7)))
suma(int(rsVac(13)))
suma(int(rsVac(19)))
suma(int(rsVac(25)))
suma(int(rsVac(31)))
suma(int(rsVac(37)))
suma(int(rsVac(43)))
suma(int(rsVac(49)))
suma(int(rsVac(55)))
suma(int(rsVac(61)))
suma(int(rsVac(67)))
suma(int(rsVac(73)))
if denominador<>0 Then
   promedioT = total / denominador
End if
%>
</tr>
<tr>
<td align="left" bgcolor="#FFFFCC"> </td>
<td bgcolor="#FFFFCC"> </td>
<td bgcolor="#FFFFCC"> </td>
<td bgcolor="#FFFFCC"> </td>
<td bgcolor="#FFFFCC"> </td>
<td bgcolor="#FFFFCC"> </td>
<td bgcolor="#FFFFCC"> </td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFCC"><strong>Promedio todas las asignaturas:</strong></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(promedio1))%>> <%=FormatNumber(promedio1,1)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(promedio2))%>> <%=FormatNumber(promedio2,1)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(promedio3))%>> <%=FormatNumber(promedio3,1)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(promedio4))%>> <%=FormatNumber(promedio4,1)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(promedio5))%>> <%=FormatNumber(promedio5,1)%></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"<%rojo(int(promedioT))%>><strong> <%=FormatNumber(promedioT,1)%></strong></font></div></td>
</tr>
</table>
<div align="center"><br>
<a href="javascript:window.print()"><img src="icon_print.gif" width="16" height="17" border="0"> <font size="2" face="Arial, Helvetica, sans-serif">Imprimir
informe </font></a></div>
<%rsvac.close
rsvac2.close%>
</body>
</html>
bueno no se ke pasa no me kiere anexar el archivo de excel de las calificaciones no se si me supe explicar por favor ayudenme....

ASP / Re: Chat

« en: Domingo 14 de Diciembre de 2003, 04:09 »

holoa atodos soy nuevo ene ste foro...
este comentario es para robert29
mi estimado amigo yo tengo un chat creado en ASP si te sirve todavia ylo rekieres con gusto te lo paso
mandame un correo a: poncho_gc@msn.com
para ke me den sus comentarios
esta asus hordenes...

atte: poncho cantu

les anexo el archivo en formato .zip

Páginas: [1]

SoloCodigo