voy a ver ese codigo aver si me funciona por que el que an dado es de asp, es el siguiente talvz alguien le ve el error ...
<%
dim strSQL, oRS
strUser=request.item("nombre")
strclave=request.item("clave")
oCnn="dsn=DSNSQL;DATABASE=Banco;APP=ASP Script"
'oCnn="Provider=SQLNCLI;Server=.;Database=Banco;Trusted_Connection=yes"
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open oCnn
Set SQLStmt = Server.CreateObject("ADODB.Command")
Set oRS = Server.CreateObject ("ADODB.Recordset")
SQLStmt.CommandText = "select * from usuarios where usuario='" & strUser & "' and clave='" & strClave & "'"
SQLStmt.CommandType = 1
Set SQLStmt.ActiveConnection = OBJdbConnection
oRS.Open SQLStmt
'response.write(strsql&"<br>")
'response.write(dsn&"<br>")
if not oRS.EOF then
response.write("Si hay datos")
response.write(oRS("Usuario"))
Else
response.write("No hay datos")
End if
%>