Duda sobre html con VBScript

la_joya · #1 (**permalink**) 15/12/2003, 07:33

Tengo este codigo, muy sencillo con una consulta a una base de datos:

<html>
<head>
<title>Prueba</title>
</head>

<body bgcolor="#FFFFFF" text="#000000">

<script language="VBScript">
<%
dim tbl,oconn,strsql

strsql = "SELECT * FROM articulos where formato like 'cd'"

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("maracas.mdb")

Set tbl = Server.CreateObject("ADODB.Recordset")

tbl.Open strsql ,oconn,3,1

While NOT TBL.EOF
Response.Write("Formato = " & TBL("formato") & "<br>")
Response.Write("titulo = " & TBL("titulo") & "<br>")
Response.Write("novedad = " & TBL("novedad") & "<br><br><br>")
TBL.MoveNext
Wend
TBL.Close

oconn.Close

Set oconn = Nothing
Set TBL = Nothing

%>
</script>
</body>
</html>

No funciona, me sale la pag en blanco. Haciendo pruebas observe que quitanto <script language="VBScript"> y </script> funciona correctamente, puede alguien decirme a que es debido esto?, no se supone que deberia de estar para indicar al servidor en que lenguaje tiene que compilar la pagina?
Muchisimas gracias

tunait · #2 (**permalink**) 15/12/2003, 09:17

No, la forma en la cual declaras el lenguaje es para el cliente.

Para servidor debes pedírselo así

<% @language="vbscript" %>

<html>
<head>
<title>Prueba</title>
</head>

<body bgcolor="#FFFFFF" text="#000000">

<%
dim tbl,oconn,strsql

strsql = "SELECT * FROM articulos where formato like 'cd'"

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("maracas.mdb")

Set tbl = Server.CreateObject("ADODB.Recordset")

tbl.Open strsql ,oconn,3,1

While NOT TBL.EOF
Response.Write("Formato = " & TBL("formato") & "<br>")
Response.Write("titulo = " & TBL("titulo") & "<br>")
Response.Write("novedad = " & TBL("novedad") & "<br><br><br>")
TBL.MoveNext
Wend
TBL.Close

oconn.Close

Set oconn = Nothing
Set TBL = Nothing

%>

</body>
</html>

la_joya · #3 (**permalink**) 15/12/2003, 15:48

muchas gracias tunait

tunait · #4 (**permalink**) 15/12/2003, 16:10

muchas de nadas

por cierto, traslado el tema al foro de ASP

movido desde html

un saludo