Bibeholde variabler under indtastningen i formular?

<%
                            'Hvis brugeren har submittet formularen
                            If Request.ServerVariables("REQUEST_METHOD") = "POST" then

                                'Kontrollerer om brugernavnet er angivet
                                If Request.Form("bruger") <> "" then

                                    'Kontrollerer om adgangskode er angivet
                                    If Request.Form("adgangskode") <> "" then

                                        'Kontrollerer om adgangskode1 er angivet
                                        If Request.Form("adgangskode1") <> "" then

                                            'Kontrollerer om e-mail adresse er angivet
                                            If Request.Form("email") <> "" then

                                                'Kontrollerer om adgangskoderne matcher
                                                If (Request.Form("adgangskode") = (Request.Form("adgangskode1"))) then

                                                    'Tilføjer brugeren til databasen
                                                    Set RS = Server.CreateObject("ADODB.Recordset")
                                                    strSQL = "SELECT * FROM profiler WHERE bruger = '" & Request("bruger") & "'"
                                                    RS.Open strSQL, conn, 1, 3

                                                        'Kontrollerer om brugernavnet er optaget
                                                        If RS.EOF or RS.BOF then

                                                            'Tilføjer brugeren til databasen og sendes derefter til login
                                                            RS.AddNew
                                                            RS("bruger") = Server.HTMLEncode(Request("bruger"))
                                                            RS("brugerkode") = Server.HTMLEncode(Request("adgangskode"))
                                                            RS("brugeremail") = Server.HTMLEncode(Request("email"))
                                                            RS("brugerHjemmeside") = Server.HTMLEncode(Request("hjemmeside"))
                                                            RS("brugerTekst") = Server.HTMLEncode(Request("fri_tekst"))
                                                            RS.update

                                                            Response.Redirect("/default.asp?mode=login")
                                                    Else
                                                        str1 = "<span class=""tekst11r""><b>" & "BRUGERNAVNET ER IKKE LEDIGT!" & "</b></span>"
                                                    End if

                                                    'RS.Close
                                                    'Set RS = nothing

                                                Else
                                                    str2 = "<span class=""tekst11r""><b>" & "ADGANGSKODER MATCHER IKKE HINANDEN!" & "</b></span>"
                                                End if

                                            Else
                                                str3 = "<span class=""tekst11r""><b>" & "DU HAR IKKE ANGIVET EN E-MAILADRESSE!" & "</b></span>"
                                            End if

                                        Else
                                            str4 = "<span class=""tekst11r""><b>" & "DU HAR IKKE GENTAGET ADGANGSKODEN!" & "</b></span>"
                                        End if

                                    Else
                                        str5 = "<span class=""tekst11r""><b>" & "DU HAR IKKE ANGIVET EN ADGANGSKODE!" & "</b></span>"
                                    End if

                                Else
                                    str6 = "<span class=""tekst11r""><b>" & "DU HAR IKKE VALGT ET BRUGERNAVN!" & "</b></span>"
                                End if

                            End if
                        %>
                <span class="o17">Opret din egen brugerprofil</span>
                <p><span class="tekst11">Alle felter med <b>fed</b> skrift SKAL udfyldes. Herefter sendes du til login-siden.</span></p>
                <form method="post" action="/default.asp?mode=opret">
                    <table cellspacing="0" cellpadding="0" class="tekst11" width="100%">
                        <tr>
                            <td width="<% Response.Write(TDWidthCell)%>" colspan="2"><b>Brugernavn</b></td>
                            <td><input type="text" style="<%Response.Write(strStyleBGColor)%>" name="bruger" value="<%=Request("bruger")%>" size="<% Response.Write(size)%>" class="input" autocomplete="off">&nbsp;&nbsp;&nbsp;
                                <%
                                If Request.Form("bruger") = "" then
                                    Response.Write str6
                                End if
                                Set RS = Server.CreateObject("ADODB.Recordset")
                                strSQL = "SELECT * FROM profiler WHERE bruger = '" & Request("bruger") & "'"
                                RS.Open strSQL, conn, 1, 3
                                If not RS.EOF or RS.BOF then
                                Response.Write str1
                                RS.Close
                                Set RS = nothing
                                End if
                                %>
                            </td>
                        </tr>
                        <tr>
                            <td colspan="3" height="<% Response.Write(CellPadding)%>"></td>
                        </tr>
                        <tr>
                            <td width="<% Response.Write(TDWidthCell)%>" colspan="2"><b>Adgangskode</b></td>
                            <td><input type="password" style="<%Response.Write(strStyleBGColor)%>" name="adgangskode" size="<% Response.Write(size)%>" class="input">&nbsp;&nbsp;&nbsp;
                            <%
                            If Request.Form("adgangskode") = "" then
                            Response.Write str5
                            End if
                            %>
                            </td>
                        </tr>
                        <tr>
                            <td width="<% Response.Write(TDWidthCell)%>" colspan="3" height="<% Response.Write(CellPadding)%>"></td>
                        </tr>
                        <tr>
                            <td width="<% Response.Write(TDWidthCell)%>" colspan="2"><b>Gentag</b></td>
                            <td><input type="password" style="<%Response.Write(strStyleBGColor)%>" name="adgangskode1" size="<% Response.Write(size)%>" class="input">&nbsp;&nbsp;&nbsp;
                            <%
                            If Request.Form("adgangskode1") = "" then
                            Response.Write str4
                            End if
                            If Request.Form("adgangskode") <> Request.Form("adgangskode1") then
                            Response.Write str2
                            End if
                            %>
                            </td>
                        </tr>
                        <tr>
                            <td colspan="3" height="<% Response.Write(CellPadding)%>"></td>
                        </tr>
                        <tr>
                            <td width="<% Response.Write(TDWidthCell)%>" colspan="2"><b>E-mail</b></td>
                            <td><input type="text" style="<%Response.Write(strStyleBGColor)%>" name="email" value="<%=Request("email")%>" size="<% Response.Write(size)%>" class="input">&nbsp;&nbsp;&nbsp;
                            <%
                            If Request.Form("email") = "" then
                            Response.Write str3
                            End if
                            %>
                            </td>
                        </tr>
                        <tr>
                            <td colspan="3" height="<% Response.Write(CellPadding)%>"></td>
                        </tr>
                        <tr>
                            <td width="<% Response.Write(TDWidthCell)%>" colspan="2">Hjemmeside</td>
                            <td><input type="text" style="<%Response.Write(strStyleBGColor)%>" name="hjemmeside" value="<%=Request("hjemmeside")%>" size="<% Response.Write(size)%>" class="input"></td>
                        </tr>
                        <tr>
                            <td colspan="3" height="<% Response.Write(CellPadding)%>"></td>
                        </tr>
                        <tr>
                            <td width="<% Response.Write(TDWidthCell)%>" valign="top" colspan="2">Fri tekst</td>
                            <td><textarea cols="<% Response.Write(TXTcols)%>" rows="<% Response.Write(TXTrows)%>" name="fri_tekst" style="<%Response.Write(strStyleBGColor)%>" class="input"><%=Request("fri_tekst")%></textarea></td>
                        </tr>
                        <tr>
                            <td valign="top" colspan="3" height="<% Response.Write(CellPadding)%>"></td>
                        </tr>
                        <tr>
                            <td>&nbsp;</td>
                            <td></td>
                            <td><input type="submit" value="Opret" class="input"></td>
                        </tr>
                        <tr>
                            <td colspan="3"><br>
                            </td>
                        </tr>
                    </table>
                </form>

Jeg opretter et mere overskueligt spørgsmål og lukker dette.

Ved nærmere eftertanke, så er det vel også et spørgsmål om sikkerhed, så jeg lader det ligge.