Lidt hjælp til binary write

Hvad er ys ?

Sådan her får jeg ys:

    strSQL = ***
    Set cmd = Server.CreateObject("ADODB.Command")
    Set cmd.ActiveConnection = Conn
    cmd.CommandType = adCmdText
    cmd.CommandText = strSQL
    cmd.Parameters.Append cmd.CreateParameter("@Overskrifter_FilerID", adVarChar, adParamInput, 255, rs("FileID1"))
    Set ys = cmd.Execute()

Indeholder ys("indhold") det forventede ?

arne_v > Indholdet kommer fra en database jeg ikke har lavet. Personen siger at det er binær data gemt i feltet "indhold" som er af typen text i databasen. Han siger at jeg blot skal gemme indholdet som binær data og så vil jeg få filen frem igen. Det er imidlertid nemmere sagt end gjort :(

Jeg ved dog at indholdet kommer fra et delphi program, hvor han ligeledes også henter det op som jeg ønsker.

Binære data burde være et felt af type IMAGE ikke i et felt af typen TEXT.

Og du burde kunne:

Response.BinaryWrite ys("indhold")

arne_v > Helt enig med feltet i databasen, men det er som sagt ikke noget jeg står bag eller bruger i det daglige. Jeg skal bare få det her enkelt udtræk til at fungere.

Hvis jeg benytter:
Response.BinaryWrite ys("indhold")

Får jeg bare en masse tegn som:
87z¼¯'�3øx ������T�������A¼;�w®Óã£ç—¾N³áquk!¹8¼tRÜTD¬õ³Ž©VÌô=Å2ÿÅÓO°Ë)Á ؤ…×èôü'srÊ9(4t‹ÒêõoäåŒ~Á· ˺#/HNq14¥ÇÓ
ÒÞxøÌ•LÊIã5î÷W8«F¦O

Bemærk at det er .htm filer jeg får fra databasen.

Endvidere hvis jeg gør dette:
Response.write(VarType(ys("indhold")))

Får jeg 8 ud, hvilket vel heller ikk er hvad det burde være?

Nu er jeg rigtig tæt på at have den.. Jeg får ingen fejl og den gemmer dokumentet som ønsket. Dog når jeg åbner dokumentet er det bare fyldt med de tegn som vist ovenover. Min kode:


      'Create Stream object
      Dim BinaryStream 'As New Stream
      Set BinaryStream = CreateObject("ADODB.Stream")
   
      'Specify stream type - we want To save text/string data.
      BinaryStream.Type = adTypeText
   
      'Specify charset For the source text (unicode) data.
      BinaryStream.CharSet = "us-ascii"
   
      'Open the stream And write text/string data To the object
      BinaryStream.Open
      BinaryStream.WriteText ys("indhold")
   
   
      'Change stream type To binary
      BinaryStream.Position = 0
      BinaryStream.Type = adTypeBinary
   
      'Ignore first two bytes - sign of
      BinaryStream.Position = 0
   
      'Open the stream And get binary data from the object
      Stream_StringToBinary = BinaryStream.Read   
     
   
      'Create a stream object
      Dim objStream
      Set objStream = Server.CreateObject("ADODB.Stream")
     
      'Write binary
      objStream.Type = adTypeBinary
      objStream.Open
      objStream.Write Stream_StringToBinary
     
     
      'Working save to file
      MyFile2 = Server.MapPath("pdf/tester2.htm")
      objStream.SaveToFile MyFile2, adSaveCreateOverWrite

     
      'Clean up....
      objStream.Close
      Set objStream = Nothing

Kan i hjælpe?