onClick Funktion aufrufen

[Antonio]

Hallo,

ich möchte beim drücken eines buttons in einer ASP Datei eine VB-Script Funktion aufrufen lassen. Die Funktion soll eine Textdatei öffnen etwas hineinschreiben und dann wieder schliessen.
Ich schaff es nicht die Funktion aufzurufen.

<script language="VBscript">
response.write("<input name='fresh' type='button' value='Uhrzeit aktualisieren' onClick='fresh()'>")
</script>

<%
Sub fresh()

dim fs,f
      set fs=Server.CreateObject("Scripting.FileSystemObject")
      set f=fs.CreateTextFile("\Antonio\lastrun.txt",true)
      f.write(uhr)
      f.close

set f=nothing

End Sub
%>

MfG Toni