Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 ASP y SQL Server2000
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Orek
Starting Member

España
1 Posts
Mensajes - 15 May 2012 :  14:43:06  Ver Perfil  Enviar Email
Hola estoy haciendo una web que acceda a una BD en SQL Server200. Estoy haciendolo en ASP en Visual Studio 6.0 y me sale este error:
quote:

Tipo de error:
Objeto Server, ASP 0177 (0x800401F3)
ProgID no válido. Para recibir información adicional referente a este mensaje, visite el sitio Web de soporte técnico de Microsoft que se encuentra en: http://www.microsoft.com/contentredirect.asp.
/PROYECTO/busca.asp, line 21

Este es el código:

quote:
<%Option Explicit%>
<!-- #INCLUDE file=./librerias/adovbs.inc -->

<%
Dim usuario, pass, id
usuario = Request.Form("usuario")
pass = Request.Form("pass")
id = Request.Form("id")

'Creamos las variables de conexion'
Dim obConexion, obRecorset, numCampos, Campo, sentenciaSQL

'Creamos el objeto conexion'
Set obConexion = Server.CreateObject("ADODB.Connection")

'Creamos la cadena de conexión y abrimos la conexión'
obConexion.ConnectionString="PROVIDER=SQLOLEDB;DATA SOURCE=LOCALHOST;UID="&usuario&";PWD="&pass&";DATABASE=peliculas"
obConexion.Open

'Creamos el objeto recordset'
Set obRecorset = Server.CreateObject("ADODB.Recorset")

'Creamos la sentencia SQL a ejecutar'
sentenciaSQL = "SELECT * FROM peliculas WHERE id='"&Request.Form("id")&"';"

'Creamos el recorset de lectura. Desplazamiento hacia delante(adOpenForwardOnly) Y solo lectura(adLockReadOnly)'
ObRecorset.open sentenciaSQL, ObConexion, adOpenForwardOnly, adLockReadOnly

'Calculamos el nº de campos de la consulta'
numCampos = ObRecorset.Fields.Count
If Not obRecorset.Eof Then %>

<HTML>
<BODY>
<TABLE>
<TR>
<TD>id</TD>
<TD>nombre</TD>
<TD>director</TD>
<TD>pais</TD>
<TD>año</TD>
</TR>

<%While Not ObRecorset.Eof%>
<TR>
<% For Campo = 0 To numCampos -1 %>
<TD align="center"><%= ObRecordset.Fields(Campo).Value %></TD>
<%Next%>
</TR>
<%ObRecorset.MoveNext
Wend
%>
</TABLE>
<%
Else
Response.write("Tabla vacia")
End If

'Cerramos el recordset'
ObRecorset.close

'Cerramos la conexión'
obConexion.Close %>
</BODY>
</HTML>

Si alguien puede ayudarme le estaría muy agradecido. Un saludo

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar