Lettura TXT e Response.Write

[SymX]

ciao a tutti sono un NEOFITA in materia....mi pare di aver pressapoco capito e scritto il codicino per aprire controllare e leggere un file txt.......... ora...il mio problema è......che vorrei capire bene le modalità per un Response.Write del testo letto all'interno di tag HTML come

<a>......il fatto è che vorrei saperlo fare avendo questo codice:

<%
strPath = Server.Mappath("desc.txt")
Set objFileSy = Server.CreateObject("Scripting.FileSystemObject")
Set objApriFile = objFileSy.OpenTextFile(strPath, 1)
Do While Not objApriFile.AtEndofStream
Response.Write objApriFile.ReadLine
Loop
objApriFile.close
%>

praticamente non so come passare quello che c'è nel ReadLine al Response.Write dentro un tag.........spero di essere stato chiaro...





Ho provato con quest'altra procedura ma purtroppo non funziona ma ritengo sia meglio che ne dite??

<%
Dim FileObject
Set FileObject=Server.CreateObject("Scripting.FileSyst emObject")
Set InStream=FileObject.OpenTextFile(desc.txt,1,True)

if InStream.AtEndOfStream <> True then
testo = Instream.ReadLine()
end if
InStream.Close
Set InStream=Nothing
Set FileObject=Nothing


%>

[Roby_72]

Non ho capito...

[SymX]

Originariamente inviato da Roby_72
Non ho capito...

Basandoti su questo codice a monte...

<%
strPath = Server.Mappath("desc.txt")
Set objFileSy = Server.CreateObject("Scripting.FileSystemObject")
Set objApriFile = objFileSy.OpenTextFile(strPath, 1)
Do While Not objApriFile.AtEndofStream
Response.Write objApriFile.ReadLine
Loop
objApriFile.close
%>

Come faccio a piazzare il Response.Write objApriFile.ReadLine
all'interno di un tag HTML ???



..........</p>

[santino83]

<%
strPath = Server.Mappath("desc.txt")
Set objFileSy = Server.CreateObject("Scripting.FileSystemObject")
Set objApriFile = objFileSy.OpenTextFile(strPath, 1)
Do While Not objApriFile.AtEndofStream
Response.Write "

" & objApriFile.ReadLine & "</p>"
Loop
objApriFile.close
%>

[SymX]

Originariamente inviato da santino83

<%
strPath = Server.Mappath("desc.txt")
Set objFileSy = Server.CreateObject("Scripting.FileSystemObject")
Set objApriFile = objFileSy.OpenTextFile(strPath, 1)
Do While Not objApriFile.AtEndofStream
Response.Write "

" & objApriFile.ReadLine & "</p>"
Loop
objApriFile.close
%>

Grazie! ...ma in verità la mia richiesta era di poter mettere quel Response.Write "

" & objApriFile.ReadLine & "</p>" in un tag dentro una tab dove voglio io

quindi vorrei prendere la libertà di piazzare il Response dove voglio e non obbligatoriamente dentro quel ciclo....

[Roby_72]

Togli il ciclo, apri la connession, crei una query ed inserisci quel testo in una tabella a piacere.

Roby

[SymX]

Originariamente inviato da Roby_72
Togli il ciclo, apri la connession, crei una query ed inserisci quel testo in una tabella a piacere.

Roby

Questo è cio' che mi sono costruito....ma purtroppo non mi visualizza il risultato...puoi dargli un occhio?!?. Link

Non vorrei che magari il problema fosse la mancanza dell'intestazione della pagina