sips.. yo hago lo mismo.
agrego unas mas de mi coleccion
sub escribe(str)
response.write str & chr(10)
end sub
sub imprime(str)
response.write str & "<br>"
end sub
sub termina()
response.end
end sub
sub mensaje(txt)
escribe "<script>"
escribe "alert(""" & txt & """)"
escribe "</script>"
end sub
sub cierra_y_recarga
response.write "<script>" & chr(10)
response.write "window.opener.location.reload();"
response.write "window.close();"
response.write "</script>" & chr(10)
end sub
bon apetit
