Un problemita
Publicado por Jose Chavez (5 intervenciones) el 16/07/2001 06:38:25
Tengo este ejemplo .. y la verda no se enque esta mal .. no me muestra nada en el explorer .... espero y me puedan decir cual es error .. gracias ..<%@ LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>Login</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Dim StrSQLServer, objCnn, ObjRCnn
StrSQLServer = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Intranet;Data Source=Jose"
Set objCnn = Server.CreateObject("ADODB.Connection")
objCnn.Open StrSQLServer
If Err.number<> 0 Then
response.Write "Error al Conectar BDD
' "Base de Datos 1:<BR>" & BDO_ConnectionString
'Response.End
End If
Set objRCnn = Server.CreateObject("ADODB.Recordset")
objRCnn.Open "SELECT * FROM " & Intra_usuarios, objCnn,1
do while not objRCnn.EOF
response.write objRcnn.fields ("Nombre")
objRCnn.movenext
loop
objRCnn.close
ObjCnn.close
set objRCnn.nothing
set objCnn.nothing
response.write "Jose"
%>
<p> </p>
</body>
</html>
<html>
<head>
<title>Login</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Dim StrSQLServer, objCnn, ObjRCnn
StrSQLServer = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Intranet;Data Source=Jose"
Set objCnn = Server.CreateObject("ADODB.Connection")
objCnn.Open StrSQLServer
If Err.number<> 0 Then
response.Write "Error al Conectar BDD
' "Base de Datos 1:<BR>" & BDO_ConnectionString
'Response.End
End If
Set objRCnn = Server.CreateObject("ADODB.Recordset")
objRCnn.Open "SELECT * FROM " & Intra_usuarios, objCnn,1
do while not objRCnn.EOF
response.write objRcnn.fields ("Nombre")
objRCnn.movenext
loop
objRCnn.close
ObjCnn.close
set objRCnn.nothing
set objCnn.nothing
response.write "Jose"
%>
<p> </p>
</body>
</html>
Valora esta pregunta
0
