Valore di Input

[dodo71]

Ciao a tutti,
vorrei sapere se posso visualizzare il contenuto del file.txt nel quale ci scrivo dentro con questo script, nel valore di input del form...
------------------------------------------------------------
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>



<center>







<table width="450" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><font class="s6"><%response.write (prima)%></font>


<font class="s7"><%response.write (subCD)%></font></div></td>
</tr>
</table>




<table width="450px" cellspacing="0" cellpadding="10" class="cornice">
<tr>
<td>
<center><%response.write (modtar)%>

<form method="post" action="mod_tariffe.asp">
<%response.write (scrivi)%>


<input type="text" name="name" class="input" size="30" value="">




<input type="submit" name="submit" value="<%response.write (invia)%>" class="form">
</form>
</center>
<div align="center"><%response.write (anteprima)%>&euro;

<%
'connessione al file di testo definito instrPath
Dim objOpenFile, objFSO, strPath
strPath = Server.MapPath("../01_Cam_Pr_Col_CD.txt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'aprire il file definito in strPath in modo lettura (1)
Set objOpenFile = objFSO.OpenTextFile(strPath, 1)

'ciclo per scorrere e stampare il file linea per linea fino alla fine del file stesso
Do While Not objOpenFile.AtEndOfStream
Response.Write (objOpenFile.ReadLine & "")
Loop

objOpenFile.Close
Set objOpenFile = Nothing
Set objFSO = Nothing
%>
</div></td>
</tr>
</table>
</center>

[Roby_72]

Non so se ho capito ma dopo averlo scritto devi riaprirlo e rileggere il contenuto...

Roby

[dodo71]

Spiego meglio,
Si tratta di inserire delle cifre nel file di file.txt come ad esempio € 65,00 , e voglio che questa cifra compaia anche nel input in modo da visualizzarla anche come anteprima.

[Roby_72]

Se la cifra è nel file, devi aprire il file e leggerla.

Roby

[dodo71]

Si la cifra è nel file.
Sono novello, se puoi farmi un esempio, OK, altrimenti non preoccuparti.....

[Roby_72]

http://www.w3schools.com/asp/met_readall.asp

Roby

[dodo71]

OK grazie mille...
e dunque nel valore di input cosa ci scrivo?

<%
dim fs,f,t,x
set fs=Server.CreateObject("Scripting.FileSystemObject ")
set f=fs.CreateTextFile("c:\test.txt")
f.write("Hello World!")
f.closeset t=fs.OpenTextFile("c:\test.txt",1,false)
x=t.ReadAll
t.close
Response.Write("The text in the file is: " & x)
%>Output:

The text in the file is: Hello World!

[Roby_72]

<%=x%>

roby

[dodo71]

<%
'connessione al file di testo definito instrPath
Dim objOpenFile, objFSO, strPath
strPath = Server.MapPath("../02_Mezza_Pens_CD.txt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'aprire il file definito in strPath in modo lettura (1)
Set objOpenFile = objFSO.OpenTextFile(strPath, 1)

'ciclo per scorrere e stampare il file linea per linea fino alla fine del file stesso
Do While Not objOpenFile.AtEndOfStream
Response.Write (objOpenFile.ReadLine & "")
Loop

objOpenFile.Close
Set objOpenFile = Nothing
Set objFSO = Nothing
%>


Dato che nel mio caso ho questo script, io faccio così:

<%=strPath%>


ma mi dà errore....

[Roby_72]

Così stampi solo il percorso del file non il suo contenuto.
Ad ogni modo se è quello l'errore vuol dire che anche il eprcorso è sbagliato.
Quando hai un errore devi scrivere qui il TIPO di errore restituito altrimenti parliamo del nulla...

Roby