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)%>€
<%
'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>

Rispondi quotando