Hvordan laver man det her om ??

Hejsa, Jeg har fået lavet det her script som sender et password ind i en fil udfra en form som man skal udfylde og trykke op send - Det jeg gerne ville var, at så snart man åbner siden så sender et brugernavn og et password fra en MS-SQL og ud til modtager filen -

spørgsmålet er nu hvordan får jeg den til automatisk at så snart jeg åbner siden(hvor scriptet ligger i) så sender den det UDEN at jeg skal trykke på "SEND"???

her kommer scriptet :

--------------------

If Request.Querystring("act") = "process" Then

    If Request.Form("adduser") <> "" Then
        encstring = "act=newpass&login=" & Request.Form("user") & "&pass=" & Request.Form("pass") & "&pass2=" & Request.Form("pass2")
        response.redirect(Request.Form("server") & "?" & myURLEncode(EnCrypt(encstring)))
    End If

    If Request.Form("edituser") <> "" Then
        encstring = "act=updatepass&login=" & Request.Form("user") & "&pass=" & Request.Form("pass") & "&pass2=" & Request.Form("pass2")
        response.redirect(Request.Form("server") & "?" & myURLEncode(EnCrypt(encstring)))
    End If

    If Request.Form("deluser") <> "" Then
        encstring = "act=deluser&login=" & Request.Form("user")
        response.redirect(Request.Form("server") & "?" & myURLEncode(EnCrypt(encstring)))
    End If

    If Request.Form("listusers") <> "" Then
        encstring = "act=listusers&login=" & Request.Form("user")
        response.redirect(Request.Form("server") & "?" & myURLEncode(EnCrypt(encstring)))
    End If

    If Request.Form("checkusers") <> "" Then
        encstring = "act=checkusers&login=" & Request.Form("user") & "&pass=" & Request.Form("pass")
        response.redirect(Request.Form("server") & "?" & myURLEncode(EnCrypt(encstring)))
    End If
End If

If Request.Querystring("response") <> "" Then
    ResponseStr = DeCrypt(myURLDecode(Request.ServerVariables("QUERY_STRING")))
    If UCase(Mid(ResponseStr,1,5)) = "LOGIN" Then
        StatusStr = ""
        UserList = split(Replace(ResponseStr,"login=",""),"&")
    Else
        StatusStr = ResponseStr
    End If
End If
%>

<a href='default.asp'>New</a>&nbsp;

<form action='default.asp?act=process' method='post'>
<table>
    <tr>
        <td colspan='2'>Status:</td>
    <tr>
    <tr>
        <td colspan='2'>
            <textarea cols='30' rows='6'><%=StatusStr%></textarea>
        </td>
    </tr>
    <tr>
        <td>Server:</td>
        <td align='right'>
            <select name='server'>
                <option value='http://maggie/htaccess/index.php'>Maggie<option>
            </select>
        </td>
    <tr>
    </tr>
        <td>Username:</td>
        <td align='right'>

<%If UserList <> "" Then%>
            <select name='user'>
<%For I = 0 to UBound(UserList)%>
                <option value='<%=UserList(i)%>'><%=UserList(i)%></option>
<%Next%>
            </select>
<%Else%>
            <input type='text' name='user'>
<%End If%>


        </td>
    <tr>
    </tr>
        <td>Pass1:</td>
        <td align='right'><input type='password' name='pass'</td>
    <tr>
    </tr>
        <td>Pass2:</td>
        <td align='right'><input type='password' name='pass2'</td>
    </tr>
    </tr>
        <td colspan='2' align='center'><input type='submit' name='adduser' value='ADD'><input type='submit' name='edituser' value='UPDATE'><input type='submit' name='deluser' value='DELETE'><input type='submit' name='listusers' value='LIST'><input type='submit' name='checkusers' value='CHECK'></td>
    </tr>
</table>
</form>

----------------------
Jeg havde selv forslåget någet med nedenstående, men det virker ikke !!

---------------------mit forslag ---------------
encstring = "act=newpass&login='" & RsCos("username") & "'&pass='" & RsCos("password") & "'&pass2='" & RsCos("password")&"'"
response.redirect "http://www1.beastgate.com/test/index.php?act=Process&myURLEncode(EnCrypt(encstring)))"

If Request.Querystring("response") <> "" Then
    ResponseStr = DeCrypt(myURLDecode(Request.ServerVariables("QUERY_STRING")))
    If UCase(Mid(ResponseStr,1,5)) = "LOGIN" Then
        StatusStr = ""
        UserList = split(Replace(ResponseStr,"login=",""),"&")
    Else
        StatusStr = ResponseStr
    End If
End If
%>
---------------virker ikke ------------------------

Håber der er nogle der har et svar. !!