pasar codigo ASP a vbs

[Motki]

Hola a to2 de nuevo,

agradeceria que alguien me dijese donde puede encontar información para pasar mi código asp a un ejecutable visual basic script...

por ejemplo no se si es correcto para crear un recordset hacerlo de la siguiente manera:
set RS2 = createObject("ADODB.recordset") ¿???
y para consultar un registro de una consulta .. alguien puede decirme como es¿??

gracias.

[pablinweb]

no se como se hacen los ejecutables de vbscript pero te puedo ayudar con ado.
<%
'primero debes realizar la coneccion
set Conn = server.createobject("ADODB.Connection")
'luego la abres, este ejemplo es para acces le debes cambiar la ruta de la base de datos, si usas otra me avisas
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\Postmaster\Datos.mdb;Per sist Security Info=False"
'Aqui creamos el record set
set Rs = server.createobject("ADODB:Recordset")
'Luego lo abrimos con una consulta cualquiera y el nombre de la coneccion
Rs.open "Select * from Tabla",Conn
'Y accedemos a los resultados por el nombre del campo, supongamos que tienes los campos Id, Nombre y Apellido
Nombre = Rs("Nombre")
Apd = Rs("Apellido")
Id = Rs("Id")
'este es el primer registro de tu base de datos y si quieres ir al segundo solo tienes que poner: Rs.movenext esto es muy util para listar una tabla de esta manera:
%>

<table>
<% Do while not Rs.eof %>
<tr>
<td>Nombre = Rs("Nombre")</td>
<td>Apd = Rs("Apellido")</td>
<td>Id = Rs("Id")</td>
</tr>
<% Rs.movenext
loop %>
</table>

La propiedad eof del recordset te devuelbe true si se terminaron los registros, debes tener cuidado de no intentar leer el Rs si no tiene más registros por lo que se recomienda primero verificarlo.
Bueno, espero haberte sido de ayuda, cualquier otra duda escribeme

[Srenau]

Hola

"Basicamente es igual varia la declaracion de los objetos, solo un poco pero se trabaja de forma similar.

[Motki]

Gracias a to2.
Ya lo he resuelto..
mi gran problema era como referenciar a los objectos ya que no es igual para asp que si se quiere hacer un ejecutable (vbs)

ejemplo:
ASP--> set conn2 = Server.createObject("ADODB.connection")
VBS-->set conn2 = createObject("ADODB.connection")

y sobre todo hay algunos objetos que no los puede referenciar correctamente como por ejemplo:

Set mailobj = Server.CreateObject("CDONTS.NewMail")

se debe poner el CreateObject("CDO.Message")

Bueno, con paciencia lo que sacado.
Gracias de to2, y si alguien quiere saber un poco mas del tema que me lo diga.. ahora ya lo tengo todo más claro.