Bruge samme Request.QueryString 2 steder på samme side?

Hej alle

Er det ikke muligt at bruge samme Request.QueryString 2 gange på samme side og hvis, hvordan gör jeg så?

De 2 steder er med store bokstaver så det måske er lidt lettere at finde :-)

Håber at alle i genier der ude i CB kan hjälpe mig :-)
--

<%If Request.QueryString("Land") = "" Or Request.QueryString("Land") = "0" Then
If Request.QueryString("upart") = "" Then%>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data/data.mdb")&";"
%>

<table border="0" cellpadding="3" cellspacing="3" width="90%">
    <tr>
        <td width="10%" bgcolor="#C5D3FC"><font size="4"><b>Land</b></font><br><a href="index.asp?Land=DK">Här väljer du land</a></td>
        <td width="80%" bgcolor="#C5D3FC"><font size="4"><b>Grupp</b></font><br>Här väljer du grupp</td>
    </tr>
    <tr>
        <td width="10%" bgcolor="#C5D3FC">
        <select size="1" style="width:110" name="select2" onchange="linkselect (this.options[this.selectedIndex].value)">
        <option value="index.asp?Land=0">Välj land</option>
        <option value="index.asp?Land=DK">Danmark</option>
        <option value="index.asp?Land=NO">Norge</option>
        <option value="index.asp?Land=SV">Sverige</option>
        </select></td>
        <td width="80%" bgcolor="#C5D3FC">
        <select size="1" style="width:110" name="select2" onchange="linkselect (this.options[this.selectedIndex].value)">
        <option value="index.asp?Grupp=0">Välj grupp</option>
        <option value="index.asp?Grupp=1">Privat</option>
        <option value="index.asp?Grupp=2">Arbete</option>
        <option value="index.asp?Grupp=3">Familj</option>
        </select></td>
    </tr>
    <tr>
        <td width="90%" bgcolor="#C5D3FC" colspan="2">
        <%
        SQL = "SELECT * FROM person ORDER BY efternamn asc;"
        Set RecSet = Connect.Execute(SQL)
        Response.Write " <table border='1' cellpadding='0' cellspacing='0' width='100%'>"
        Response.Write " <tr>"
        Response.Write " <td width='15' style='border: 1 solid #C5D3FC'><b>Namn</b></td>"
        Response.Write " <td width='15' style='border: 1 solid #C5D3FC'><b>Telefon</b></td>"
        Response.Write " <td width='15' style='border: 1 solid #C5D3FC'><b>Mobil</b></td>"
        Response.Write " <td width='55' style='border: 1 solid #C5D3FC'><b>Email</b></td>"
        Do While Not RecSet.EOF
        Response.Write " <tr>"
        Response.Write " <td width='15%' style='border: 1 solid #C5D3FC'><a href='index.asp?Detalj="&RecSet("id")&"'>"&RecSet("efternamn")&", "&RecSet("fornamn")&"</a></td>"
        Response.Write " <td width='15%' style='border: 1 solid #C5D3FC'>"&RecSet("telefonnummer_hem_1")&"</td>"
        Response.Write " <td width='15%' style='border: 1 solid #C5D3FC'>"&RecSet("telefonnummer_mobil_1")&"</td>"
        Response.Write " <td width='55%' style='border: 1 solid #C5D3FC'>"&RecSet("emailadress_1")&"</td>"
        Response.Write " </tr>"
        RecSet.MoveNext
        Loop
        %>
        </table>

<%End If%>
<!-- ALLA SLUT -->

<!-- LAND START -->
<%End If%>

<%IF REQUEST.QUERYSTRING("LAND") = "'"&REQUEST.QUERYSTRING("LAND")&"'" THEN
If Request.QueryString("upart") = "" Then%>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data/data.mdb")&";"
%>

<table border="0" cellpadding="3" cellspacing="3" width="90%">
    <tr>
        <td width="10%" bgcolor="#C5D3FC"><font size="4"><b>Land</b></font><br>Danmark</td>
        <td width="80%" bgcolor="#C5D3FC"><font size="4"><b>Grupp</b></font><br>Här väljer du grupp</td>
    </tr>
    <tr>
        <td width="10%" bgcolor="#C5D3FC">
        <select size="1" style="width:110" name="select1" onchange="linkselect (this.options[this.selectedIndex].value)">
        <option value="index.asp?Land=0">Alla</option>
        <option value="index.asp?Land=DK">Danmark</option>
        <option value="index.asp?Land=NO">Norge</option>
        <option value="index.asp?Land=SV">Sverige</option>
        </select></td>
        <td width="80%" bgcolor="#C5D3FC">
        <select size="1" style="width:110" name="select2" onchange="linkselect (this.options[this.selectedIndex].value)">
        <option value="index.asp?Grupp=0">Alla</option>
        <option value="index.asp?Grupp=1">Privat</option>
        <option value="index.asp?Grupp=2">Arbete</option>
        <option value="index.asp?Grupp=3">Familj</option>
        </select></td>
    </tr>
    <tr>
        <td width="90%" bgcolor="#C5D3FC" colspan="2">
        <%
        SQL = "SELECT * FROM PERSON WHERE LAND='"&REQUEST.QUERYSTRING("LAND")&"'"
        Set RecSet = Connect.Execute(SQL)
        Response.Write " <table border='1' cellpadding='0' cellspacing='0' width='100%'>"
        Response.Write " <tr>"
        Response.Write " <td width='15' style='border: 1 solid #C5D3FC'><b>Namn</b></td>"
        Response.Write " <td width='15' style='border: 1 solid #C5D3FC'><b>Telefon</b></td>"
        Response.Write " <td width='15' style='border: 1 solid #C5D3FC'><b>Mobil</b></td>"
        Response.Write " <td width='55' style='border: 1 solid #C5D3FC'><b>Email</b></td>"
        Do While Not RecSet.EOF
        Response.Write " <tr>"
        Response.Write " <td width='15%' style='border: 1 solid #C5D3FC'>"&RecSet("efternamn")&", "&RecSet("fornamn")&"</td>"
        Response.Write " <td width='15%' style='border: 1 solid #C5D3FC'>"&RecSet("telefonnummer_hem_1")&"</td>"
        Response.Write " <td width='15%' style='border: 1 solid #C5D3FC'>"&RecSet("telefonnummer_mobil_1")&"</td>"
        Response.Write " <td width='55%' style='border: 1 solid #C5D3FC'>"&RecSet("emailadress_1")&"</td>"
        Response.Write " </tr>"
        RecSet.MoveNext
        Loop
        %>
        </table>

<%End If%>

<!-- LAND SLUT -->

<%End If%>