Hola a todos necesito hacer la conexion para SQL Server y me sale el siguiente problema :
este es el codigo de mi pagina, necesito listar los registro de la bd :
----------------------------------------------------------------------
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>Listado de Proyectos</TITLE>
</HEAD>
<BODY>
<%
Dim Strcon
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.open "PROVIDER=SQLOLEDB;DATA SOURCE=jahman;UID=will;PWD=will;DATABASE=Proyectos "
Strcon "SELECT * FROM Proyecto"
If oConn.EOF And oConn.BOF Then
Response.Write "No hay Registros."
Else
oConn.MoveFirst%>
<h2><b> <font color="#1F45CB"><i>Proyectos Registrados.</i></font></b></h2>
<center>
<TABLE border='1' bgcolor='#CECECE'>
<tr bgcolor='#003399'>
<td> <font face="Verdana" color='#ffffff' size="2"><b>Código Proyecto</b></font></td>
<td> <font face="Verdana" color='#ffffff' size="2"><b>Código Persona</font></td>
<td> <font face="Verdana" color='#ffffff' size="2"><b>Código Cliente</b></font></td>
<td> <font face="Verdana" color='#ffffff' size="2"><b>Nombre Proyecto</b></font></td>
<td> <font face="Verdana" color='#ffffff' size="2"><b>Fecha Inicio</b></font></td>
<td> <font face="Verdana" color='#ffffff' size="2"><b>Fecha Término</b></font></td>
<td> <font face="Verdana" color='#ffffff' size="2"><b>Descripción</b></font></td>
</tr>
<%
While Not oConn.EOF %>
<tr>
<td><font color="#AA2E17"><%Response.Write oConn.Fields ("CodProyecto") %></font></td>
<td><font color="#AA2E17"><%Response.Write oConn.Fields ("Persona") %></font></td>
<td><font color="#AA2E17"><%Response.Write oConn.Fields ("Cliente") %></font></td>
<td><%Response.Write oConn.Fields ("NomProyecto") %></td>
<td><%Response.Write oConn.Fields ("FechaInEstimada")%></td>
<td><%Response.Write oConn.Fields ("FechaFinEstimada")%></td>
<td><%Response.Write oConn.Fields ("Descripcion") %></td>
</tr>
<%oConn.MoveNext
Wend
oConn.close
End If
%>
<table> <br><br>
</BODY>
-----------------------------------------------------------------------------
Y ESTE ES EL ERROR QUE ME SALE
------------------------------------------
Error de Microsoft VBScript en tiempo de ejecución error '800a000d'
No coinciden los tipos
/taller/web/listar.asp, line 13
------------------------------------------------
si es posible que me arreglen el codigo o cualquier sugerencia,
Se agradece de antemano cualquier ayuda.
Jah Bless. jahman