checkbox selected och cookies

6 svar · 290 visningar · startad av devotion 16 nov. 2005

devotionMedlem sedan jan. 20013 582 inlägg

Frågan16 nov. 2005 09:23#1

:x
Hej....

Jag blir galen!

Jag har följande kod som listar uppdrag och har en kontrollpanel, där man med checkboxar kan välja vilka uppdrag man vill visa... (koden är lång sorry)

<%
Dim  strSQL, objConn, objRS, strStatus, intPageSize, intPage, intTotalPages, intCounter

'============Paging

intPageSize = 20 '## -- byt ut till hur många poster du vill ska visas per sida --

'## -- vilken sida ska visas --
intPage = Request.QueryString("page")

'## -- kontrollera så att inte intPage variabeln är tom --
If intPage = "" Then 
	intPage = 1 '## -- visa första sidan som default --
End If

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=uppdragNu"
objConn.Open 
%>

<form name="chooseStatus" method="post" action="listTask.asp">
	<table width="550" border="0" cellspacing="0" cellpadding="0">
	  <tr class="text10px">
		<td width="18" class="text11px"><img src="../Images/Planerat.gif" alt="Visa planerade" width="18" height="18" /></td>
		<td width="35" class="text11px"><input name="status" type="checkbox" onClick="this.form.submit();" value="0" <% If instr("," & replace(request("status")," ","") & ",", ",0,") > 0 then response.Write "checked" End if %>></td>
		<td width="18" class="text11px"><img src="../Images/Utskickat.gif" alt="Visa utskickade" width="18" height="18" /></td>
		<td width="35" class="text11px"><input name="status" type="checkbox" onClick="this.form.submit();" value="1" <% If instr("," & replace(request("status")," ","") & ",", ",1,") > 0 then response.Write "checked" End if %>></td>
		<td width="18" class="text11px"><img src="../Images/Mottaget.gif" alt="Visa mottagna" width="18" height="18" /></td>
		<td width="35" class="text11px"><input name="status" type="checkbox" onClick="this.form.submit();" value="2" <% If instr("," & replace(request("status")," ","") & ",", ",2,") > 0 then response.Write "checked" End if %>></td>
		<td width="18" class="text11px"><img src="../Images/P&aring;g&aring;ende.gif" alt="Visa p&aring;g&aring;ende" width="18" height="18" /></td>
		<td width="35" class="text11px"><input name="status" type="checkbox" onClick="this.form.submit();" value="3" <% If instr("," & replace(request("status")," ","") & ",", ",3,") > 0 then response.Write "checked" End if %>></td>
		<td width="18" class="text11px"><img src="../Images/Klart.gif" alt="Visa klara" width="18" height="18" /></td>
		<td width="35" class="text11px"><input name="status" type="checkbox" onClick="this.form.submit();" value="4" <% If instr("," & replace(request("status")," ","") & ",", ",4,") > 0 then response.Write "checked" End if %>></td>
		<td width="18" class="text11px"><img src="../Images/fakturerat.gif" alt="Visa fakturerade" width="18" height="18" /></td>
		<td width="35" class="text11px"><input name="status" type="checkbox" onClick="this.form.submit();" value="5" <% If instr("," & replace(request("status")," ","") & ",", ",5,") > 0 then response.Write "checked" End if %>></td>
	    <td width="56" class="text11px">Utf&ouml;rs av: </td>
	    <td width="176" class="text11px">	
<%	
strSQL = "SELECT Name " &_
		 "FROM tblUsers " &_
		 "ORDER BY Name"
	
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, 3, 1
%>
		<select name="user" id="user" onChange="if (this.selectedIndex > 0) this.form.submit();">
		  <option value="" selected="selected">--Välj montör--</option>
		  <option value="All" <% if request("user") = "All" then response.write "selected" %>>Alla</option>
		  <% Do until ObjRS.EOF %>
		  <option value="<% =objRS("Name") %>" <% if request("user") = objRS("Name") then response.write "selected" %>><% =objRS("Name") %></option>
		  <% objRS.Movenext %>
      	  <% Loop %>
        </select>
		
<%		
objRS.Close
Set objRS = Nothing
%>
		</td>
	  </tr>
  </table>
  <input name="status" type="hidden" value="6">
</Form>

<%

If 	request("status") <> "" then
	strStatus = request("status")
Else
	strStatus = "0,1,2,3,4,5"
End If

mWhere = request("user")

strSQL = "SELECT User, customerName, customerNr, taskNr, task, status, Id, CustomT2, CustomT3 " &_
		 "FROM tblTask " &_
		 "WHERE status in (" & strStatus & ") "
	
		                 
if  mWhere <> "All" then  strSQL = strSQL & "AND User = '" & mWhere & "' " 
strSQL = strSQL &  "ORDER BY taskNr"

Set objRS = Server.CreateObject("ADODB.Recordset")

objRS.PageSize = intPageSize
objRS.Open strSQL, objConn, 3, 1

If objRS.EOF then 
	Response.Write "<span class=""text10px_fet"">Det finns inga Uppdrag at visa</span><br> "

Else
	'## -- visa rätt sida i recordsetet --
	objRS.AbsolutePage = intPage

	'## -- hur många sidor består recordsetet av --
	intTotalPages = objRS.PageCount
%>
<form>
<table width="915" border="0" cellpadding="0" cellspacing="0" class="tabell">
  <tr>
    <td width="30" class="tabellrubrik">V&auml;lj</td>
    <td width="50" class="tabellrubrik">Status</td>
    <td width="70" class="tabellrubrik">Uppdragsnr</td>
    <td width="60" class="tabellrubrik">Utf&ouml;rs av </td>
    <td width="225" class="tabellrubrik">Kund</td>
    <td width="50" class="tabellrubrik">Kundr</td>
    <td width="225" class="tabellrubrik">Uppdrag</td>
    <td width="70" class="tabellrubrik">Klonat?</td>
    <td width="135" class="tabellrubrik">Kund?</td>
  </tr>
<%
	do until objRS.EOF OR intCounter >= intPageSize
	intCounter = intCounter + 1

	If bgcolor = "#FFFFFF" then bgcolor = "#EFEFEF" else bgcolor = "#FFFFFF" 
%>	
  <tr bgColor=<% =bgcolor %> class="text11px" onMouseOver="this.style.backgroundColor='#E0E0E0';" onMouseOut="this.style.backgroundColor='<% =bgcolor %>';">
    <td><label>
      <input type="checkbox" name="checkbox" value="<% = objRS("Id") %>" />
    </label></td>
    <td>
	<% Select Case objRS("status")
			Case 0
				Response.write "<img src=""../Images/Planerat.gif"" alt=""Planerat uppdrag"">"
			Case 1
				Response.write "<img src=""../Images/Utskickat.gif"" alt=""Utskickat uppdrag"">"
			Case 2
				Response.write "<img src=""../Images/Mottaget.gif"" alt=""Planerat uppdrag"">"
			Case 3
				Response.write "<img src=""../Images/Pågående.gif"" alt=""Pågående uppdrag"">"
			Case 4
				Response.write "<img src=""../Images/Klart.gif"" alt=""Klart uppdrag"">"
			Case 5
				Response.write "<img src=""../Images/Fakturerat.gif"" alt=""Fakturerat uppdrag"">"
		End Select
	%>	</td>
    <td height="20"><a href="#" onclick="window.open('editTask.asp?taskNr=<% =objRS("taskNr") %>', 'editTask', 'width=1152, height=864'); return false;">
    <% =objRS("taskNr") %></a></td>
    <td class="text11px"><% =objRS("User") %></td>
    <td class="text11px"><% =objRS("customerName") %></td>
    <td class="text11px"><% =objRS("customerNr") %></td>
    <td class="text11px">
	<%If "" &objRS("Task") = "" then 
		response.write "&nbsp;" 
	  Else 
		If Len(objRS("Task")) > 35 then
			Response.Write left(objRS("Task"),32) & "..."
	  	Else
			Response.write objRS("Task")
		End If
	  End if 
	  %>	</td>
    <td class="text11px"><% =objRS("customT3") %></td>
    <td class="text11px"><% =objRS("customT2") %></td>
  </tr>	
<%	
	objRS.MoveNext 
	Loop
%>
</table>
<% Call PageNavigation(intPage, intTotalPages) %>
<br /><br />
<input name="Sammanfoga" type="button" value="Sammanfoga" />
</form>	

<%
End If

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

Sub PageNavigation(ByVal Page, TotalPages)
    Dim strScriptName, N

    '## -- denna sidas namn --
    strScriptName = Request.ServerVariables("SCRIPT_NAME")

    '## -- länk till föregående sida --
    '## -- kontrollera att det inte är första sidan som visas --
    If CInt(Page) > 1 Then
         '## -- inte första sidan som visas så gör en länk --
        Response.Write "<A href=""" & strScriptName & "?page=" & Page - 1 & "&user=" & request("user") & "&status=" & Server.URLEncode(request("status")) & """>"
		Response.write "<img src=""/images/Pages-back.gif"" border=""0"" Align=""AbsMiddle"" ALT=""Klicka för Föregående Sida""></A> "
    Else
        '## -- det är första sidan som ska visas. gör ingen länk --
'        Response.Write "<< Föregående "
    End If

    '## -- bygg upp själva pagebaren, dvs varje sidnummer ska ha en länk
    '## -- så att besökaren snabbt kan ta sig till rätt sida --
    For N = 1 To CInt(TotalPages)
        If N <> CInt(Page) Then
            '## -- ej aktuell sida, länka --
            Response.Write "<A href=""" & strScriptName & "?page=" & N & "&user=" & request("user") & "&status=" & Server.URLEncode(request("status")) & """>" & N & "</A> "
        Else
            '## -- aktuell sida, länka ej -- 
            Response.Write "<B>" & N & "<B> "
        End If
    Next

    '## -- länk till nästa sida. om vi står på sista sidan ska den ej vara länkad --
    If CInt(Page) < CInt(TotalPages) Then
        '## -- vi är inte på sista sidan --
        Response.Write "<A href=""" & strScriptName & "?page=" & Page + 1  & "&user=" & request("user") & "&status=" & Server.URLEncode(request("status")) & """>"
        Response.Write "<img src=""/images/Pages-forward.gif"" border=""0"" Align=""AbsMiddle"" ALT=""Klicka för Nästa Sida""></A>"
    Else
        '## -- vi är på sista sidan. länka ej --
'        Response.Write "Next >>"
    End If
End Sub
%>

Jag försöker modifiera den lite men lyckas inte...

Jag skulle vilja ha det så här:
-när man kommer till sidan vill jag att alla checkboxar utom den med Value"5" ska var ikryssad. alla andra ska vara avmarkerade.
-Jag vill att en cookie skapas så sidan minns vilka val som gjordes senast. även user

Snälla!

Mvh
Henrik

joel_joel88Medlem sedan nov. 20021 222 inlägg

16 nov. 2005 15:20#2

Det räcker väl att ta bort från checkboxen med value = "5", då är den ju inte i kryssad.

<% If instr("," & replace(request("status")," ","") & ",", ",5,") > 0 then response.Write "checked" End if %>

@ndersMedlem sedan juni 200032 967 inlägg

16 nov. 2005 18:58#3

Sätt blocket där du hämtar in status överst, och ändra en aning:

If request("status") <> "" then
	strStatus = request("status")
	response.cookies("sydostel")("status") = strStatus
	blnShowNumberFive = true  ' hitta på ett bättre namn!
Else
	strStatus = request.cookies("sydostel")("status")
	if strStatus = "" then
		strStatus = "0,1,2,3,4,5"
		blnShowNumberFive = false
	end if
End If

Sedan:

<% If instr("," & replace(request("status")," ","") & ",", ",5,") > 0 and blnShowNumberFive then ...

devotionMedlem sedan jan. 20013 582 inlägg

17 nov. 2005 08:35#4

Hej!

Tack snälla @nders... :e

Men det vill sig inte riktigt...

Nu ser koden ut så här och det markeras inget när jag besöker sidan... cookien minns inget heller... Nu kan det vara så att jag missat något väsentligt då jag satt med en j***a router och vpn-klient, halva natten...

Men jag fattar inte varför det inte funkar....

<body>
<%
Dim  strSQL, objConn, objRS, strStatus, intPageSize, intPage, intTotalPages, intCounter

If request("status") <> "" then
	strStatus = request("status")
	response.cookies("sydostel")("status") = strStatus
	blnStatusFive = true
Else
	strStatus = request.cookies("sydostel")("status")
	if strStatus = "" then
		strStatus = "0,1,2,3,4,5"
		blnStatusFive = false
	end if
End If

'============Paging

intPageSize = 20 '## -- byt ut till hur många poster du vill ska visas per sida --

'## -- vilken sida ska visas --
intPage = Request.QueryString("page")

'## -- kontrollera så att inte intPage variabeln är tom --
If intPage = "" Then 
	intPage = 1 '## -- visa första sidan som default --
End If

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=uppdragNu"
objConn.Open 
%>

<form name="chooseStatus" method="post" action="listTask.asp">
	<table width="550" border="0" cellspacing="0" cellpadding="0">
	  <tr class="text10px">
		<td width="18" class="text11px"><img src="../Images/Planerat.gif" alt="Visa planerade" width="18" height="18" /></td>
		<td width="35" class="text11px"><input name="status" type="checkbox" onClick="this.form.submit();" value="0" <% If instr("," & replace(request("status")," ","") & ",", ",0,") > 0 then response.Write "checked" End if %>></td>
		<td width="18" class="text11px"><img src="../Images/Utskickat.gif" alt="Visa utskickade" width="18" height="18" /></td>
		<td width="35" class="text11px"><input name="status" type="checkbox" onClick="this.form.submit();" value="1" <% If instr("," & replace(request("status")," ","") & ",", ",1,") > 0 then response.Write "checked" End if %>></td>
		<td width="18" class="text11px"><img src="../Images/Mottaget.gif" alt="Visa mottagna" width="18" height="18" /></td>
		<td width="35" class="text11px"><input name="status" type="checkbox" onClick="this.form.submit();" value="2" <% If instr("," & replace(request("status")," ","") & ",", ",2,") > 0 then response.Write "checked" End if %>></td>
		<td width="18" class="text11px"><img src="../Images/P&aring;g&aring;ende.gif" alt="Visa p&aring;g&aring;ende" width="18" height="18" /></td>
		<td width="35" class="text11px"><input name="status" type="checkbox" onClick="this.form.submit();" value="3" <% If instr("," & replace(request("status")," ","") & ",", ",3,") > 0 then response.Write "checked" End if %>></td>
		<td width="18" class="text11px"><img src="../Images/Klart.gif" alt="Visa klara" width="18" height="18" /></td>
		<td width="35" class="text11px"><input name="status" type="checkbox" onClick="this.form.submit();" value="4" <% If instr("," & replace(request("status")," ","") & ",", ",4,") > 0 then response.Write "checked" End if %>></td>
		<td width="18" class="text11px"><img src="../Images/fakturerat.gif" alt="Visa fakturerade" width="18" height="18" /></td>
		<td width="35" class="text11px"><input name="status" type="checkbox" onClick="this.form.submit();" value="5" <% If instr("," & replace(request("status")," ","") & ",", ",5,") > 0 and blnStatusFive then response.Write "checked" End if %>></td>
	    <td width="56" class="text11px">Utf&ouml;rs av: </td>
	    <td width="176" class="text11px">	
<%	
strSQL = "SELECT Name " &_
		 "FROM tblUsers " &_
		 "ORDER BY Name"
	
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, 3, 1
%>
		<select name="user" id="user" onChange="if (this.selectedIndex > 0) this.form.submit();">
		  <option value="" selected="selected">--Välj montör--</option>
		  <option value="All" <% if request("user") = "All" then response.write "selected" %>>Alla</option>
		  <% Do until ObjRS.EOF %>
		  <option value="<% =objRS("Name") %>" <% if request("user") = objRS("Name") then response.write "selected" %>><% =objRS("Name") %></option>
		  <% objRS.Movenext %>
      	  <% Loop %>
        </select>
		
<%		
objRS.Close
Set objRS = Nothing
%>
		</td>
	  </tr>
  </table>
  <input name="status" type="hidden" value="6">
</Form>

<%

mWhere = request("user")

strSQL = "SELECT User, customerName, customerNr, taskNr, task, status, Id, CustomT2, CustomT3 " &_
		 "FROM tblTask " &_
		 "WHERE status in (" & strStatus & ") "
	
		                 
if  mWhere <> "All" then  strSQL = strSQL & "AND User = '" & mWhere & "' " 
strSQL = strSQL &  "ORDER BY taskNr"

Set objRS = Server.CreateObject("ADODB.Recordset")

objRS.PageSize = intPageSize
objRS.Open strSQL, objConn, 3, 1

If objRS.EOF then 
	Response.Write "<span class=""text10px_fet"">Det finns inga Uppdrag at visa</span><br> "

Else
	'## -- visa rätt sida i recordsetet --
	objRS.AbsolutePage = intPage

	'## -- hur många sidor består recordsetet av --
	intTotalPages = objRS.PageCount
%>
<form>
<table width="915" border="0" cellpadding="0" cellspacing="0" class="tabell">
  <tr>
    <td width="30" class="tabellrubrik">V&auml;lj</td>
    <td width="50" class="tabellrubrik">Status</td>
    <td width="70" class="tabellrubrik">Uppdragsnr</td>
    <td width="60" class="tabellrubrik">Utf&ouml;rs av </td>
    <td width="225" class="tabellrubrik">Kund</td>
    <td width="50" class="tabellrubrik">Kundr</td>
    <td width="225" class="tabellrubrik">Uppdrag</td>
    <td width="70" class="tabellrubrik">Klonat?</td>
    <td width="135" class="tabellrubrik">Kund?</td>
  </tr>
<%
	do until objRS.EOF OR intCounter >= intPageSize
	intCounter = intCounter + 1

	If bgcolor = "#FFFFFF" then bgcolor = "#EFEFEF" else bgcolor = "#FFFFFF" 
%>	
  <tr bgColor=<% =bgcolor %> class="text11px" onMouseOver="this.style.backgroundColor='#E0E0E0';" onMouseOut="this.style.backgroundColor='<% =bgcolor %>';">
    <td><label>
      <input type="checkbox" name="checkbox" value="<% = objRS("Id") %>" />
    </label></td>
    <td>
	<% Select Case objRS("status")
			Case 0
				Response.write "<img src=""../Images/Planerat.gif"" alt=""Planerat uppdrag"">"
			Case 1
				Response.write "<img src=""../Images/Utskickat.gif"" alt=""Utskickat uppdrag"">"
			Case 2
				Response.write "<img src=""../Images/Mottaget.gif"" alt=""Planerat uppdrag"">"
			Case 3
				Response.write "<img src=""../Images/Pågående.gif"" alt=""Pågående uppdrag"">"
			Case 4
				Response.write "<img src=""../Images/Klart.gif"" alt=""Klart uppdrag"">"
			Case 5
				Response.write "<img src=""../Images/Fakturerat.gif"" alt=""Fakturerat uppdrag"">"
		End Select
	%>	</td>
    <td height="20"><a href="#" onclick="window.open('editTask.asp?taskNr=<% =objRS("taskNr") %>', 'editTask', 'width=1152, height=864'); return false;">
    <% =objRS("taskNr") %></a></td>
    <td class="text11px"><% =objRS("User") %></td>
    <td class="text11px"><% =objRS("customerName") %></td>
    <td class="text11px"><% =objRS("customerNr") %></td>
    <td class="text11px">
	<%If "" &objRS("Task") = "" then 
		response.write "&nbsp;" 
	  Else 
		If Len(objRS("Task")) > 35 then
			Response.Write left(objRS("Task"),32) & "..."
	  	Else
			Response.write objRS("Task")
		End If
	  End if 
	  %>	</td>
    <td class="text11px"><% =objRS("customT3") %></td>
    <td class="text11px"><% =objRS("customT2") %></td>
  </tr>	
<%	
	objRS.MoveNext 
	Loop
%>
</table>
<% Call PageNavigation(intPage, intTotalPages) %>
<br /><br />
<input name="Sammanfoga" type="button" value="Sammanfoga" />
</form>	

<%
End If

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

Sub PageNavigation(ByVal Page, TotalPages)
    Dim strScriptName, N

    '## -- denna sidas namn --
    strScriptName = Request.ServerVariables("SCRIPT_NAME")

    '## -- länk till föregående sida --
    '## -- kontrollera att det inte är första sidan som visas --
    If CInt(Page) > 1 Then
         '## -- inte första sidan som visas så gör en länk --
        Response.Write "<A href=""" & strScriptName & "?page=" & Page - 1 & "&user=" & request("user") & "&status=" & Server.URLEncode(request("status")) & """>"
		Response.write "<img src=""/images/Pages-back.gif"" border=""0"" Align=""AbsMiddle"" ALT=""Klicka för Föregående Sida""></A> "
    Else
        '## -- det är första sidan som ska visas. gör ingen länk --
'        Response.Write "<< Föregående "
    End If

    '## -- bygg upp själva pagebaren, dvs varje sidnummer ska ha en länk
    '## -- så att besökaren snabbt kan ta sig till rätt sida --
    For N = 1 To CInt(TotalPages)
        If N <> CInt(Page) Then
            '## -- ej aktuell sida, länka --
            Response.Write "<A href=""" & strScriptName & "?page=" & N & "&user=" & request("user") & "&status=" & Server.URLEncode(request("status")) & """>" & N & "</A> "
        Else
            '## -- aktuell sida, länka ej -- 
            Response.Write "<B>" & N & "<B> "
        End If
    Next

    '## -- länk till nästa sida. om vi står på sista sidan ska den ej vara länkad --
    If CInt(Page) < CInt(TotalPages) Then
        '## -- vi är inte på sista sidan --
        Response.Write "<A href=""" & strScriptName & "?page=" & Page + 1  & "&user=" & request("user") & "&status=" & Server.URLEncode(request("status")) & """>"
        Response.Write "<img src=""/images/Pages-forward.gif"" border=""0"" Align=""AbsMiddle"" ALT=""Klicka för Nästa Sida""></A>"
    Else
        '## -- vi är på sista sidan. länka ej --
'        Response.Write "Next >>"
    End If
End Sub
%>

Mvh
Henrik

@ndersMedlem sedan juni 200032 967 inlägg

17 nov. 2005 08:46#5

Jag ser nu att du använder request("status") i alla dina if-satser på checkboxarna. Byt till strStatus, så kanske det funkar bättre. :)

Mvh

devotionMedlem sedan jan. 20013 582 inlägg

17 nov. 2005 12:04#6

:r
Oj... Men jag sa ju att jag kunde missat något viktigt.... nu blir det rätt, nästan... Jag får den dock inte att minnas hur checkboxarna var..

Och sen kom jag ju på det att den ska ju minnas användaren också...

Är så dålig på cookies...

Hur gör man det?

		<select name="user" id="user" onChange="if (this.selectedIndex > 0) this.form.submit();">
		  <option value="" selected="selected">--Välj montör--</option>
		  <option value="All" <% if request("user") = "All" then response.write "selected" %>>Alla</option>
		  <% Do until ObjRS.EOF %>
		  <option value="<% =objRS("Name") %>" <% if request("user") = objRS("Name") then response.write "selected" %>><% =objRS("Name") %></option>
		  <% objRS.Movenext %>
      	  <% Loop %>
        </select>

Mvh Henrik

devotionMedlem sedan jan. 20013 582 inlägg

17 nov. 2005 20:45#7

Jaha... :)

När jag ändrade till strStatus så funkar det klockrent, och cookien fungerar också nu. Vet inte varför det inte funkade när jag testade lokalt. Hur kunde jag ens tvivla på att din kod inte skulle fungera.... ;)

När det gäller användaren så gjorde jag likadant som med statusen enligt följande kod;

If request("user") <> "" then
	strUser = request("user")
	response.cookies("Task")("user") = strUser
Else
	strUser = request.cookies("Task")("user")
	if strUser = "" then
		strUser = "All"
	end if
End If

och sedan i listrutan_

<select name="user" id="user" onChange="if (this.selectedIndex > 0) this.form.submit();">
		  <option value="" selected="selected">--Välj montör--</option>
		  <option value="All" <% if strUser = "All" then response.write "selected" %>>Alla</option>
		  <% Do until ObjRS.EOF %>
		  <option value="<% =objRS("Name") %>" <% if strUser = objRS("Name") then response.write "selected" %>><% =objRS("Name") %></option>
		  <% objRS.Movenext %>
      	  <% Loop %>
        </select>

Nu funkar det finfint!!

Thanx a lot!

Ps.
Om någon är tokbra på netgears VPN-router FVS338 och deras VPN-klient får ni gärna höra av er.... Det blir nog en lång natt... ;)
Mvh
Henrik