como mostrar foto alumno y calificacion con asp y excell 
Hola a todos los del foro
mi pregunta es la siguente:
tengo una pagina web de mi secundaria, la razon es ke quiero actualizar la pagina agregandole al modulo de calificaciones la fotografia de cada alumno, es decir que cundo el alumno consulte su calificacion le aparesca la fotografia y sus calificaciones, alguien me podria ayudar por favor.
el codigo del modulo de calificaciones esta en html,asp y excell
form.htm " hase el formulario de preguntas "
alumno.asp " hase la conexcion de consulta con el archivo de excel "
webgrupo2°C-2004-2005.xls " estan almacenadas las calificaciones "
mi pregunta es me podrian ayudar no se como creear una base de datos con fotografias y ni como anexsarla al codigo.
aki podran ver el link funcionando
http://www.sectec58.net/form.htm
Nota: aki les pongo una parte del codigo solo donde hase la coneccion y consulta de los datos. si pongo todo el codigo serian como 344 lineas y no se si se me permita postear todo el codigo
Espero que alguien me ayude, y gracias por su tiempo en ke le dedicaron a leer este post y a todos los ke me contesten de forma positiva y negativa.
Este es el codigoen alumno.asp <%@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:BX55 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).Nam e%></strong></div>
</font></b></td>
<td align="center"><b><font color="white">
<div align="center"><strong><%=rsVac.Fields.Item(3).Nam e%></strong></div>
</font></b></td>
<td align="center"><b><font color="white">
<div align="center"><strong><%=rsVac.Fields.Item(4).Nam e%></strong></div>
</font></b></td>
<td align="center"><b><font color="white">
<div align="center"><strong><%=rsVac.Fields.Item(5).Nam e%></strong></div>
</font></b></td>
<td align="center"><b><font color="white">
<div align="center"><strong><%=rsVac.Fields.Item(6).Nam e%></strong></div>
</font></b></td>
<td align="center"><b><font color="white">
<div align="center"><strong><%=rsVac.Fields.Item(7).Nam e%></strong></div>
</font></b></td>
</tr>
<tr>
de ante mando muchas gracias
mi correo es
[email protected]
[email protected]
