<%Language=VBScript%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};"
DSNtemp=dsntemp & "DBQ=c:\Inetpub\wwwroot\tesis\db\terceros.mdb "
conn.Open DSNtemp
eventquery="SELECT * FROM terceros"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open eventquery, conn, 3, 3
%>
<%
Set conn1 = Server.CreateObject("ADODB.Connection")
DSNtemp1="DRIVER={Microsoft Access Driver (*.mdb)};"
DSNtemp1=dsntemp1 & "DBQ=c:\Inetpub\wwwroot\tesis\db\materiaX.mdb "
conn1.Open DSNtemp1
eventquery1="SELECT * FROM materiax"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open eventquery1, conn1, 3, 3
dim matricula
matricula=request.form("matricula")
dim nombre
nombre=RS.fields.item("Dnombre").value
%>
<HTML>
<HEAD>
<TITLE>Calificaciones Correspondientes a la matricula [ <%=matricula%> ]</TITLE>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080">
<form>
<tr>
<td>
<p>
<%
Response.Write "Calificaciones correspondientes a la matricula &nbsp<b>"& matricula &"&nbsp</b>"
Response.Write "<p>"
dim nombremat
while (NOT RS.eof)
If (matricula = RS.fields.item("DMatricula").value) then
dim calif1
calif1=RS.fields.item("dprimer").value
dim calif2
calif2=RS.fields.item("dsegun").value
dim calif3
calif3=RS.fields.item("dtercer").value
dim clavemat1
clavemat=RS1.fields.item("dclamat").valu e
dim clavemat
clavemat=RS.fields.item("dclamat").value
nombremat= RS1("dnommat")
Response.Write "<b><font>"& nombremat &"</font></b>"
Response.Write "<p><b><font>Primer Parcial:&nbsp;</font></b>"&calif1&""
Response.Write "<p><b><font>Segundo Parcial:&nbsp;</font></b>"&calif2&"<p>"
Response.Write "<p><b><font>Tercer Parcial:&nbsp;</font></b>"&calif3&"<p>"
esponse.Write "</td>"
Response.Write "</tr>"
End If
rs.movenext()
rs1.movenext()
wend
%>
</form>
</BODY>
</HTML>
<%
RS.close
RS1.close
%>
Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]