Amigos quisiera si alguien me ayuda a realizar una conexion ASP con una base de datos en Visual Fox 6.0
Quiero realizar una consulta sobre la base de datos, tengo la base y la pagina alojada en brinkster, pero me sale el siguiente mensaje
"The page cannot be displayed"
Esta es mi pagina ASP, no se que tengo mal.
<%@ LANGUAGE="VBSCRIPT"%>
<HTML>
<HEAD>
<TITLE>Chasey Duarte Home Page</TITLE>
</HEAD>
<BODY>
<CENTER>
<H1>Consulta sobre tablas</H1>
</CENTER>
<% ccedula=request.form("coda")
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER=Microsoft Visual Foxpro Driver;SourceType=DBC;DBQ=" & Server.MapPath("Base.dbc"))
Set cmdTemp=Server.CreateObject("ADODB.Command")
Set rs=Server.CreateObject("ADODB.Recordset")
SQLText="Select coda,detalle from Base!Articul where coda like '%"&ccedula&"%'"
cmdTemp.CommandText=SQLText
cmdTemp.CommandType=1
Set cmdTemp.ActiveConnection=Conn
rs.CacheSize=10
rs.Open cmdTemp,,adopenstatic
%>
<%if rs.eof then%>
<h3 align="center">
<font color="#FF0000">No hay datos que coincidan con su consulta</font></h3>
<%else%>
<table border="0" width="100%">
<tr>
<th width="30%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Código</font></th>
<th width="70%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Detalle</font></th>
</tr>
<%do while not rs.eof%>
<tr>
<td width="33%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><%=rs("coda")%></font></td>
<td width="33%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><%=rs("detalle")%></font></td>
</tr>
<%rs.movenext
loop
rs.close
end if%>
</table>
<p> </p>
<p align="center"><a href="F.html">Otra vez</a></p>
</body>
</html>
Mostrar Mensajes
