Zwischenspeicher leeren

[franz]

Hi!
Mit einem Laden-Button wird das Script ausgefürht und diesen muß ich 2mal drücken - ich habe die File string.txt und test.txt ist string.txt geladen und ich will text.txt laden  muß ich 2mal laden drücken! Umgekehrt ist es dasselbe.

Code:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
<!-- METADATA TYPE="TypeLib"
     UUID="420b2830-e718-11cf-893d-00a0c9054228" -->

'---------------StartCode für DB-Browser-----------------
 sql=Request.Form("SQLDatei")

' erzeugen des FSO Objekts, öffnen der Datei (Lesezugriff)
 Set fs = CreateObject("Scripting.FileSystemObject")
 Set f = fs.OpenTextFile(sql,ForReading)

Do While f.AtEndOfStream <> True
     r= r+f.readline + "&#13;&#10;"
 Loop

Application("text")=r

' Objekte schließen
 f.close
 Set f = Nothing
 Set fs = Nothing

'---------------EndeCode für DB-Browser-----------------
</script>

im body teil:

<TEXTAREA style="WIDTH: 760px; HEIGHT: 166px" name=sSQL rows=10 cols=95>
<%
Response.Write(Application("text"))
%>
</TEXTAREA>