Automatisk submit - hvad er fejlen?

kan du ikke komme med hele koden

Sådan er hele kode-sammenhængen:

    <TABLE BORDER=0>
    <TR><TD ALIGN=LEFT VALIGN=TOP><FONT CLASS=Txt1>
    <FORM ACTION = <%=myACTION%> METHOD="POST">
    </FONT></TD></TR>
    <%

    'Call InputFormHidden("myURL", myURL)

    Call InputFormText("Host:","myCALL", myCALL)
    Call InputFormText("Client Root:","myInitURL", myInitURL)
    Call InputFormText("Client:","myURL", myURL)
    Call InputFormText("Replace From:","myREPLACEFROM", myREPLACEFROM)
    Call InputFormText("Replace To:","myREPLACETO", myREPLACETO)
    Call InputFormText("Path From:","myPATHFROM", myPATHFROM)
    Call InputFormText("Path To:","myPATHTO", myPATHTO)
    Call InputFormText("File From:","myFILEFROM", myFILEFROM)
    Call InputFormText("File To:","myFILETO", myFILETO)
    Call InputFormText("Status:","mySTATUS", mySTATUS)
    Call InputFormTextArea("Tekst:","myCONTENT", myCONTENT)
    %>
    <TR><TD ALIGN=LEFT VALIGN=TOP><FONT CLASS=Txt1>
    <INPUT TYPE="Submit" NAME="Submit" VALUE="SEND">
    </FONT></TD></TR></TABLE>
    <%
    ' AUTOMATISK SUBMIT
    Dim TheForm
    Set TheForm = Document.ValidForm
    TheForm.Submit

plus:
    %></FORM><%

Er løst...