onClick Funktion aufrufen

[Antonio]

Inzwischen habe ich den Aufruf geschafft. Er sagt jetzt aber, dass das Objekt diese Eigenschaft oder Methode nicht unterstützt. Huh ?

<%
response.write("<input ID='fresh' name='fresh' type='button' value='Uhrzeit aktualisieren' onClick='fresh()'>")

Sub fresh()
dim os, o
set os=Server.CreateObject("Scripting.FileSystemObject")
set o=os.GetFile(Server.MapPath("testread.txt"))
Response.Write("The file testread.txt was last accessed on: " & o.DateLastAccessed)
set o=nothing
set os=nothing
End Sub

%>

Was mach ich falsch?
Help PLZ.