Hola !!
Necesito ayuda please. Me ocurre lo siguiente. En la home tengo un "inlcude" dentro de una celda que llama a una pagina en asp. Bien. Si abro la pagina directamente, es decir, si pongo el path que va directamente a la pagina asp no tengo ningun problema, pero si abro la home(tambien en asp) donde tengo el "include" me da un error:
Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'i'
/encuesta2.asp, line 31
No entiendo porque sucede esto, pues bien la abre si voy directamente a ella. Es decir que la variable que me dice que esta mal deberia estarlo tambien si abro la pagina directamente, no ?
os añado el código de la página para ver si alguien me puede ayudar. Gracias de antemano !!!
<%
Dim objconn
Set objconn = Server.CreateObject("ADODB.Connection")
objconn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Dat a Source=" & Server.MapPath("/encuestas.mdb"))
dim rse
set rse=createobject("ADODB.Recordset")
dim sqltxt
sqltxt="SELECT * from encuestas where activa=true"
rse.open sqltxt,objconn
if not rse.EOF then
%>
<div align="center">
<center>
<table border="1" width="150" bgcolor="#C0C0C0" bordercolor="#0000FF">
<tr>
<td width="100%">
<form method="POST" action="verencuesta.asp" target="_blank">
<table border="0" width="100%">
<tr>
<td width="100%" bgcolor="#0000FF">
<p align="center"><font face="Verdana" size="1" color="#FFFFFF">Enquesta del mes</font></td>
</tr>
<tr>
<td width="100%">
<p align="center"><font face="Verdana" size="1"><b><%=rse("pregunta")%></b></font></td>
</tr>
<%for i = 0 to rse("nopciones")-1 step 1 %>
<tr>
<td width="100%"><input type="radio" value="<%=i%>" name="opcion">
<font face="Verdana" size="1"><%=rse(i)%></font></td>
</tr>
<%next
rse.close%>
</table>
<p align="center">
<input border="0" src="opinar.gif" name="I1" type="image"></p>
</form>
</center>
<!--<p align="center"><a href="historico.asp" target="_blank"><img border="0" src="ir.gif" alt="Historico de encuestas"></a></p>-->
</td>
</tr>
</table>
</div>
<%else
rse.close
end if
objconn.close
set objconn=nothing
%>