[ASP] Problemen openen wordfile*

[Verwijderd]

Ik heb een probleem; het staat tussen de *-tjes onderaan in mijn script;

Als ik :
Filename = "notules/" & "1.doc" ' file to read

gebruik dan leest ie de .doc perfect uit en laat hem tuurlijk ook perfect op beeld zien. Maaruh als ik deze een beetje dynamisch wil maken door de bestandnamen en types uit database te halen; krijg ik een probleem, want als ik :

Filename = "notules/" + (notuelenaam) + "." & (notueletype) ' file to read

gebruik dan gaat het mis en krijg ik dit te zien : ÐÏࡱá l

Ik heb echt geen idee waarom ik wel 2 stringen mag bijelkaar mag voegen, maar een string & StringVariabele & StringVariabele weer niet.

Kan iemand mij hiermee helpen???

Alvast erg bedankt,


Mijn Script:

ASP:

<% Option Explicit
Response.Buffer = True

'eerst de naam en plaats zoeken uit de database
Dim nConn 
Dim nRs 
Dim nSqlString
Dim nfilePath
Dim notuelenaam
Dim notueletype
Dim NotuulId

    nfilePath = Server.MapPath("db1.mdb")
    nSqlString = "Select * from T2Notules where NotuleId = " & request("NotId") & ";"

    set nConn  = Server.Createobject("ADODB.Connection")
    set nRs = Server.Createobject("ADODB.Recordset")
    nConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & nfilePath
    nRs.open nSqlString, nConn, 3, 3                
                
    if nRs.RecordCount = 1 then
        'goed
        notuelenaam = CStr(nRs.fields("Bestandsnaam").value)
        notueletype = CStr(nRs.fields("Type").value)
        NotuulId = (nRs.fields("NotuleId").value)
    else
        Session("error") = "Er is een fout in de database<br>De notule staat niet goed in de database!"
        Response.Redirect "error.asp"
    end if


    nRs.close
        nConn.close
    Set nRs = nothing
    Set nConn = nothing

****************************************************************
Dim Filename
Filename = "notules/" & "1.doc" ' file to read
'Filename = "notules/" + (notuelenaam) + "." & (notueletype)    ' file to read
****************************************************************

Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

' Create a filesystem object
Dim FSO
set FSO = server.createObject("Scripting.FileSystemObject")

' Map the logical path to the physical system path
Dim Filepath
Filepath = Server.MapPath(Filename)

if FSO.FileExists(Filepath) Then    '<hiero

    ' Get a handle to the file
    Dim file    
    set file = FSO.GetFile(Filepath)    '<hiero

    ' Get some info about the file
    Dim FileSize
    FileSize = file.Size

    Response.Write "<p><b>File: " & Filename & " (size " & FileSize  &_
                   " bytes)</b></p><hr>"
    Response.Write "<pre>"

    ' Open the file
    Dim TextStream
    Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault)

    ' Read the file line by line
    Do While Not TextStream.AtEndOfStream
        Dim Line
        Line = TextStream.readline
    
        ' Do something with "Line"
        Line = Line & vbCRLF
    
        Response.write Line 
    Loop


    Response.Write "</pre><hr>"

    Set TextStream = nothing
    
Else

    Response.Write "<h3><i><font color=red> File " & Filename &_
                       " does not exist</font></i></h3>"

End If

Set FSO = nothing
%>

[ Voor 14% gewijzigd door Glimi op 05-05-2003 18:34 ]

[zoepercavia]

Vraag 1):
Waarom gebruik je eerst & en daarna + als concatenator?

[PowerFlower]

Vraag 2): welke taal is dit eigenlijk?

maar die concatenation idd, waarom gebruik je plotseling een + als in je andere voorbeeld blijkt dat een & wél werkt?

[Verwijderd]

Dat maakt niet uit; Maar ik heb nu allemaal & van gemaakt! Maar blijf met hetzelfde probleem!?!

De taal is ASP

[ Voor 24% gewijzigd door Verwijderd op 05-05-2003 15:40 ]

[gorgi_19]

Het programma doet precies wat je hem vraagt... Open een Word-bestand en zet deze op het scherm neer. Open maar eens een word-bestand, dan zie je exact dezelfde tekens, waarschijnlijk.

Ergo: Je behandeld een word-bestand als een tekstbestand. (Nog simpeler gezegd: je behandeld een binair bestand als een tekstbestand.)

[ Voor 15% gewijzigd door gorgi_19 op 05-05-2003 15:55 ]

[Verwijderd]

nee, dan krijg ik wel de goede teksten.

Ik weet dat ik hem als tekstbestand behandel, maar op een andere manier lukt het me niet om een word bestand makkelijk te openen.

Thnx

[gorgi_19]

Verwijderd schreef op 05 May 2003 @ 15:54:
nee, dan krijg ik wel de goede teksten.

Ik weet dat ik hem als tekstbestand behandel, maar op een andere manier lukt het me niet om een word bestand makkelijk te openen.

Thnx

Ooit gehoord van Response.BinaryWrite?

[Verwijderd]

Ja maar daar krijg ik volgens mij hetzelfde probleem.
Heb jij misschien een script waar ik ff mee kan klooien

Thnx

[gorgi_19]

Verwijderd schreef op 05 mei 2003 @ 16:02:
Ja maar daar krijg ik volgens mij hetzelfde probleem.

Hint 2: Die dingen heten force downloadscripts. Staat alle info in die je nodig hebt.

Heb jij misschien een script waar ik ff mee kan klooien

Ja, die heb ik. Nee, die krijg je niet.

[ Voor 10% gewijzigd door gorgi_19 op 05-05-2003 16:28 ]

[Verwijderd]

Niet zo boos worden he gorgi;

Het is me gelukt;

Het is echt arelaxed, want het kwam omdat de worddocumenten niet zelf ingetikt zijn maar heb ik ff test teksten van internet + mailtjes en daarna in word gekopied;

Gewoon normaal opgeslagen, maar word zit dat als een ander type;

Nu zelf maar wat testteksten getikt en voilá perfect!!!

Allen allemaal bedankt
(mocht ik jullie kunnen helpen hoor ik het wel)

[Glimi]

fietstas:
Voor je volgende vraag, zou je eerst dit nog even willen doornemen: P&W Beleid
gorgi_19 is namelijk niet boos, maar we willen gewoon geen scriptrequest hebben hier Daar leer je immers niets van
Als je volgende keer ook nog een mooie titel bedenkt ipv zoiets vaags en de FAQ quickstart volgt, dan komen we er helemaal

[gorgi_19]

* gorgi_19 waggelt nog ff langs het topic
Een kleine bevestiging voor wat Glimi net zei: 'k ben idd niet boos, wel graag direct.
Over die code: ik denk dat mensen hier (niet op het forum, maar geografische plaats) vrij pissig gaan worden als ik gewoon complete codes ga neerzetten. Daarnaast zijn er ook genoeg voorbeelden van wat ik bedoelde te vinden op Internet.

Verder zie ik dat je net nieuw bent; welkom in PW.

(mocht ik jullie kunnen helpen hoor ik het wel)

Altijd ligt er wel een vraagje klaar. Mocht je in de lijst een leuk topic tegenkomen, waar je het antwoord op weet, schroom dan niet om ook een reactie te geven. Maak je iig een hoop mensen blij mee.

[ Voor 32% gewijzigd door gorgi_19 op 05-05-2003 19:20 ]