Ver Mensaje Individual
  #3 (permalink)  
Antiguo 04/12/2007, 11:52
dannyterraneo
 
Fecha de Ingreso: diciembre-2007
Mensajes: 9
Antigüedad: 17 años, 4 meses
Puntos: 0
Re: no puedo conectar con mi bd access

gracias, subi todo pero sigue igual, me muestra la pagina inicial index.html pero cuando llama a una pagina asp da un error HTTP 500 - Error interno del servidor
Internet Explorer
paso codigo de la index.html:
<HTML>
<HEAD>
<TITLE>
PAOLA BECERICA
</TITLE>
<BODY bgcolor=#"667788">
<B><I>
<FONT FACE="Arial" SIZE="3">
<P>Por favor complete los datos<P>
<B><I>
</FONT>
<FORM METHOD=POST ACTION="MOSTRAR.ASP">
<B><I>Número de Socio<I><B>:<input type="text" name="cod" size="5" ><br><br>
<B><I>Password<I><B>:&nbsp &nbsp&nbsp &nbsp&nbsp &nbsp&nbsp &nbsp<input type="Password" name="Clave" size="15" MAXLENGTH="10"><br><br><br><br>
<input type="Submit" value="Buscar">
</form>
</BODY>
</HTML>
paso codigo de la asp:
<HTML>
<HEAD>
<TITLE>
PAOLA BECERICA
</TITLE>
<%
Set cn=server.CreateObject("ADODB.Connection")
Set ps=Server.CreateObject("ADODB.RecordSet")
Set pe=Server.CreateObject("ADODB.RecordSet")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappth("Video.mdb")
Cod=request("cod")
Clave=request("Clave")
sql="SELECT count(*)as cuantos FROM Clientes WHERE Codigo="+Cod+" and Clave = '"+clave+"'"
ps.Open sql, cn
can = ps("cuantos")
%>
</HEAD>
<BODY bgcolor="#667788">
<%
if can = 1 Then
sql = "SELECT * FROM peliculas"
pe.Open sql, cn
while not pe.EOF
%>
<FORM METHOD=POST ACTION="Alquilar.asp?cli=<%=Cod%>&Peli=<%=pe.field s("codigo")%>">
titulo=<%=pe.fields("titulo")%>Peli=<%=pe.fields(" codigo")%>&nbsp&nbsp<input type="Submit" value="Alquilar"><br><br>
<MARQUEE bgcolor="#ff0000">&nbsp
<font face="Arial" color="#ffffff">
<i>
Alquile hoy con el 10% de descuento</MARQUEE>
</I>
</Font>
<%
pe.MoveNext
Wend
else
%>
<A HREF="Paola.html">Volver a la Página Inicial</A>
<%
end if
%>
</table>
</form>
</body>
</html>
si podes ayudarme agradecido
saludos