uni1_test.asp:
<html>
<head>
<title>Test</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../../estilos.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="../../img/fondo_celeste.gif" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="top"><img src="../img/cabecera_test.gif" width="550" height="64"></td>
</tr>
<tr>
<td class="fondo_caso" align="center" valign="top">
<br>
<table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="top">
<form name="test1" method="post" action=<%=request.servervariables ("URL")%>#resultados>
<p align="center" class="enlaces_cabecera_over"><img src="../../img/ico_test2.gif" width="33" height="30"></p>
<p align="left"><span class="enlaces_cabecera_over"> 1. Podemos
decir que el comercio electrónico es cualquier forma de
transacción comercial en la que al menos una de las partes
interactúa telemáticamente</span><br>
<span class="enlaces_contenidos2">
<input type="radio" name="p0" value="1">
Falso<br>
<input type="radio" name="p0" value="2">
Verdadero</span></p>
<p align="left"><span class="enlaces_cabecera_over">2. La diferencia
principal entre comercio tradicional y comercio electrónico
radica en la forma de negociar la compra-venta</span><br>
<span class="enlaces_contenidos2">
<input type="radio" name="p1" value="1">
Falso<br>
<input type="radio" name="p1" value="2">
Verdadero<br>
<br>
</span><span class="enlaces_cabecera_over">3. En el comercio electrónico
se habla de oferta sólo cuando en la publicidad se incluye
el precio del producto o servicio</span><br>
<span class="enlaces_contenidos2">
<input type="radio" name="p2" value="1">
Falso<br>
<input type="radio" name="p2" value="2">
Verdadero<br>
<br>
</span><span class="enlaces_cabecera_over">4. Podemos afirmar
que el EDI se encarga de tratar la información que se deriva
de las relaciones comerciales y administrativas electrónicas</span><br>
<span class="enlaces_contenidos2">
<input type="radio" name="p3" value="1">
Falso</span><span class="enlaces_contenidos2"><br>
<input type="radio" name="p3" value="2">
Verdadero<br>
<br>
</span><span class="enlaces_cabecera_over">5. El EDI se practica
principalmente en la modalidad de comercio electrónico
entre consumidores</span><br>
<span class="enlaces_contenidos2">
<input type="radio" name="p4" value="1">
Falso <br>
<input type="radio" name="p4" value="2">
Verdadero<br>
<br>
</span><span class="enlaces_cabecera_over">6. El comercio electrónico
ofrece bienes y servicios de tal forma que permite a los clientes
adquirirlos a través de internet</span><br>
<span class="enlaces_contenidos2">
<input type="radio" name="p5" value="1">
Falso<br>
<input type="radio" name="p5" value="2">
Verdadero<br>
<br>
</span><span class="enlaces_cabecera_over">7. Podemos afirmar
que el comercio electrónico elimina, gracias a internet,
tanto las barreras temporales como las espaciales</span><br>
<span class="enlaces_contenidos2">
<input type="radio" name="p6" value="1">
Falso<br>
<input type="radio" name="p6" value="2">
Verdadero<br>
<br>
</span><span class="enlaces_cabecera_over">8. Una limitación
al desarrollo del comercio electrónico es la seguridad
y privacidad</span><br>
<span class="enlaces_contenidos2">
<input type="radio" name="p7" value="1">
Falso<br>
<input type="radio" name="p7" value="2">
Verdadero<br>
<br>
</span><span class="enlaces_cabecera_over">9. Dentro de las limitaciones
del comercio electrónico, el factor o límite "riesgo"
hace alusión a los temores de fraude</span><br>
<span class="enlaces_contenidos2">
<input type="radio" name="p8" value="1">
Falso<br>
<input type="radio" name="p8" value="2">
Verdadero<br>
<br>
</span><span class="enlaces_cabecera_over">10. Una actividad propia
de una relación comercial es pactar el precio</span><br>
<span class="enlaces_contenidos2">
<input type="radio" name="p9" value="1">
Falso<br>
<input type="radio" name="p9" value="2">
Verdadero<br>
</span></p>
<table width="16%" border="0">
<tr>
<td>
<input type="submit" name="Submit" value="Obtener resultados">
</td>
<td>
<input type="submit" name="Reset" value="Borrar">
<input type="hidden" name="modulo" value="5">
<input type="hidden" name="unidad" value="1">
<input type="hidden" name="preguntas" value="10">
</td>
</tr>
</table><a name="resultados"></a>
<!-- #INCLUDE file="../resultados.asp" -->
<p><br>
</p>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
Resultados.asp:
<%
falta=0
i=0
aux=request.form("preguntas")
do while (i<=aux-1) AND (falta<>1)
pregunta="p"&i
if (strcomp (request.form(pregunta),"")=0) then
falta=1
end if
i=i+1
loop
if falta=0 AND (strcomp (aux, "")<>0) then
dim respuestas(70), fallos(70)
Ruta= server.MapPath("../soluciones.txt")
set objFSO=Server.CreateObject ("scripting.filesystemobject")
set objAbreArchivo= objFSO.OpenTextFile (Ruta, 1)
preguntas=request.form ("preguntas")
modulo="m"&request.form ("modulo")
unidad="u"&request.form ("unidad")
cual=modulo&unidad
do while (strcomp (linea, cual)<>0)
linea=objAbreArchivo.Readline
loop
linea=objAbreArchivo.ReadLine
soluciones=Split (linea, ",", -1, 1)
for i=0 to preguntas-1
pregunta="p"&i
respuestas(i)=request.form (pregunta)
next
aciertos=0
j=0
for i=0 to preguntas-1
if (soluciones(i)=respuestas(i)) then
aciertos=aciertos+1
else
fallos(j)=i+1
j=j+1
end if
next
fallos(j)=-1
estadistica=FormatNumber (((aciertos*100)/preguntas), 2, -1, 0, 0)
response.write "<table width=50% border=0 cellspacing=2 cellpadding=2> " & _
"<tr> " & _
" <td class=recuadro_text width=39% >Porcentaje de aciertos</td>" & _
" <td width=61% class=fondo_text>"&estadistica&"%</td>" & _
"</tr>" & _
"<tr> " & _
" <td class=recuadro_text width=39% >Respuestas incorrectas</td>" & _
" <td width=61% class=fondo_text>"
'imprimo los fallos
j=0
do while fallos(j+2)<>-1
response.write fallos(j)&","
j=j+1
loop
response.write fallos(j)&" y "&fallos(j+1)
response.write "</td>" & _
"</tr> " & _
"</table>"
else
response.write ("<p><span class=enlaces_cabecera_over>No has rellenado todos los campos</span>")
end if
%>
Gracias de nuevo por todo