ASP - Ado.Stream en asp

Hola

Tengo en una base de datos sql server un campo varbinary(max) en el que se almacena un archivo, puede ser de cualquier extension. Esto lo hago en una aplicacion vb6 usando aso.stream. Tambien, uso ado.stream para leer el archivo de la base de datos.

Mi pregunta es, como puedo leer el archivo de la base de datos usando ado.stream en asp clasico????

A continuacion pongo el codigo que uso en vb6 para leer un archivo

xSql = "select * from ArchivosAdjuntos where codigo=" & List1.Text

oRegistros.Open xSql

rutaarchivo = "D:FolderArchivos" & oRegistros.Fields("narchivo").Value

Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write oRegistros.Fields("adjunto").Value
mstream.SaveToFile rutaarchivo, adSaveCreateOverWrite

de antemano muchas gracias por la ayuda que me puedan dar

como cambia la forma de crear el objeto:
set mstream = Server.CreateObject("ADODB.Stream")

saludos