Tengo un inconveniente, es que no manejo VBS, o sea se que no es demasiado diferente al codigo que ya tengo en ASP pero como no tengo instalado el programa para programar en VBS me es bastante complicado armarlo, hay algun sitio donde pueda ver como pasar de un ASP a un VBS.
pongo el modelo de codigo que tengo.
Código:
dim fs, tfile
Set fs=Server.CreateObject("Scripting.FileSystemObject")
dirTxt=Server.MapPath(WCsBasePath)&"\"
set tfile = fs.CreateTextFile (dirTxt&"activos.txt")
set rs=conn.execute("Select * From visEnvioDetallado Where Completado is Null and Completado1 is Null Order by FechaVence, Reenvio_Vence")
Do Until rs.eof
enTxt = 0
if rs("anulado")=1 Then
enTxt = 0
Else
enTxt = 1
vence=rs("FechaVence")
End If
IdP = rs("idparticipante")
If enTxt = 1 Then
set rsP=conn.execute("Select * From Participantes Where id='"&IdP&"'")
tfile.WriteLine rsP("CodigoNt")&","&vence
End if
rs.MoveNext
Loop
Set fs = Nothing
Set tfile = Nothing