---
title: "alternativ (dropdown)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/88017-alternativ-dropdown"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tank82"
published: "2003-10-08T18:51:31.000Z"
updated: "2003-10-08T22:21:23.000Z"
replies: 18
views: 412
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/88017-alternativ-dropdown"
---

# alternativ (dropdown)

## #1 — tank82, 2003-10-08T18:51Z

Hmm hur ska jag förklara detta då :)

Jo det är så här att jag vill kunna välja olika orter (ex. visby, södertälje osv)  men hjälp av en dropdown på denna administrationsida, hur gör jag?

```
<%RecSet.Close
Set RecSet = Nothing
End If
End If
If Request.Querystring("action") = "add" Then%>

<table width="400" cellpadding="4" cellspacing="0">
<form method="post" action="admin.asp?action=spara" name="texten" onSubmit="return News()">
<tr>
    <td><b>Skribent:</b><br><input type="text" name="skribent" size="55"></td>
</tr>
<tr>
    <td><b>Rubrik:</b><br><input type="text" name="rubrik" size="55"></td>
</tr>
<tr>
    <td><b>Typ (artikel eller nyhet):</b><br><input type="text" name="typ" size="55"></td>
</tr>
<tr>
    <td><b>Ort:</b><br><input type="text" name="ort" size="55"></td>
</tr>
<tr>
    <td><b>Bild url:</b><br><input type="text" name="bildurl" size="55"><br><small>Ingen bild = <font color="#FF0000">filhantering/filer/bilder-artiklar03/no_pic_200x150.jpg</font><br>Insändare = <font color="#FF0000">filhantering/filer/bilder-artiklar03/folkets_rost_200x150.jpg</small></font></td>
</tr>
<tr>
    <td><b>Texten:</b><br><textarea cols="90" rows="20" name="texten"></textarea></td>
</tr>
<tr>
    <td><input type="Submit" name="andra" value="Lägg till"></td>
</tr><table width="385" bordercolor="#1EA6E8" border="1" cellspacing="0" cellpadding="2">

</table>
</form>
</table>

<%End If
If Request.Querystring("action")= "change" Then

Set RecSet = Conn.Execute("SELECT * FROM nyhetartikel WHERE id="& Request.Querystring("id"))%>

<table width="400" cellpadding="4" cellspacing="0">
<form method="post" action="admin.asp?action=andrat&id=<%=Request.Querystring("id")%>" name="texten" onSubmit="return News()">
<tr>
    <td><b>Skribent:</b><br><input type="text" name="skribent" size="55" value="<%=RecSet("skribent")%>"></td>
</tr>
<tr>
    <td><b>Rubrik:</b><br><input type="text" name="rubrik" size="55" value="<%=RecSet("rubrik")%>"></td>
</tr>
<tr>
    <td><b>Typ (artikel eller nyhet):</b><br><input type="text" name="typ" size="55" value="<%=RecSet("typ")%>"></td>
</tr>
<tr>
    <td><b>Ort:</b><br><input type="text" name="ort" size="55" value="<%=RecSet("ort")%>"></td>
</tr>
<tr>
    <td><b>Bild url:</b><br><input type="text" name="bildurl" size="55" value="<%=RecSet("bildurl")%>"><br><small>Ingen bild = <font color="#FF0000">filhantering/filer/bilder-artiklar03/no_pic_200x150.jpg</font><br>Insändare = <font color="#FF0000">filhantering/filer/bilder-artiklar03/folkets_rost_200x150.jpg</small></font></td>
</tr>
<tr>
    <td><b>Texten:</b><br><textarea cols="90" rows="20" name="texten"><%=RecSet("texten")%></textarea></td>
</tr>

<tr>
    <td><input type="Submit" name="andra" value="Utför ändringar"></td>
</tr><table width="385" bordercolor="#1EA6E8" border="1" cellspacing="0" cellpadding="2">

</table>
</form>
</table>

<%RecSet.Close
Set RecSet = Nothing

End If
If Request.Querystring("action")= "spara" Then
   Rubrik      = Replace(Request.Form("rubrik"), "'", "''")
   Typ         = Replace(Request.Form("typ"), "'", "''")
   Ort         = Replace(Request.Form("ort"), "'", "''")
   Skribent    = Replace(Request.Form("skribent"), "'", "''")
   Bildurl     = Replace(Request.Form("bildurl"), "'", "''")
   Texten      = Replace(Request.Form("texten"), "'", "''")

   Conn.Execute("INSERT INTO nyhetartikel(rubrik,typ,ort,skribent,bildurl,texten) VALUES('" & rubrik & "', '" & typ & "', '" & ort & "','" & skribent & "','" & bildurl & "','" & texten & "')")
   Response.Redirect "admin.asp"
End If
If Request.Querystring("action") = "andrat" Then
   Rubrik      = Replace(Request.Form("rubrik"), "'", "''")
   Typ         = Replace(Request.Form("typ"), "'", "''")
   Ort         = Replace(Request.Form("ort"), "'", "''")
   Skribent    = Replace(Request.Form("skribent"), "'", "''")
   Bildurl     = Replace(Request.Form("bildurl"), "'", "''")
   Texten      = Replace(Request.Form("texten"), "'", "''")

   Conn.execute("Update nyhetartikel Set Rubrik='" & rubrik & "', Typ='" & typ & "', Ort='" & ort & "', Skribent='" & skribent & "', Bildurl='" & bildurl & "', Texten='" & texten & "' Where id = "& Request.Querystring("id"))
   Response.Redirect "admin.asp"
End If
If Request.Querystring("action") = "delete" Then
   Conn.Execute("Delete From nyhetartikel Where id="& Request.Querystring("id"))
   Response.Redirect "admin.asp"
End If

End If
Conn.Close
Set Conn = Nothing%>
```

Permalänk: https://www.webforum.nu/p/88017

## #2 — @nders, 2003-10-08T18:53Z

Det har väl inte så där extremt mycket med asp att göra, men:

```
<td><b>Ort:</b><br><select name="ort" size="55">
<option value="visby">visby</option>
<option value="södertälje">södertälje</option>
</select>
</td>
```

Permalänk: https://www.webforum.nu/p/1180146

## #3 — tank82, 2003-10-08T19:09Z

guld! =)

Permalänk: https://www.webforum.nu/p/1180167

## #4 — tank82, 2003-10-08T19:55Z

Nytt problem!!

Hur får jag alternativet att stanna kvar om jag vill ändra?
Jag provade med \<%=RecSet("ort")%\> men det fungerade inte.

```
<tr>
    <td><b>Kommun:</b><br><select name="ort" size="1" value="<%=RecSet("ort")%>">
<option value="visby">visby</option>
<option value="södertälje">södertälje</option>

    </select>
</td>
```

Permalänk: https://www.webforum.nu/p/1180203

## #5 — Palle, 2003-10-08T19:59Z

> **tank82 skrev:**
>
> Hur får jag alternativet att stanna kvar om jag vill ändra?

Kan du utveckla den frågan lite? :)

Permalänk: https://www.webforum.nu/p/1180206

## #6 — tank82, 2003-10-08T20:05Z

ja åp adminsidan så har jag så att man kan ändra på en nyhet (se kod) och då vill jag att alternativet man har valt när man la till nyheten ska vara kvar i dropdownen så att säga. (svårt att förklara)

```
End If
If Request.Querystring("action") = "andrat" Then
   Rubrik      = Replace(Request.Form("rubrik"), "'", "''")
   Typ         = Replace(Request.Form("typ"), "'", "''")
   Ort         = Replace(Request.Form("ort"), "'", "''")
   Skribent    = Replace(Request.Form("skribent"), "'", "''")
   Bildurl     = Replace(Request.Form("bildurl"), "'", "''")
   Texten      = Replace(Request.Form("texten"), "'", "''")

   Conn.execute("Update nyhetartikel Set Rubrik='" & rubrik & "', Typ='" & typ & "', Ort='" & ort & "', Skribent='" & skribent & "', Bildurl='" & bildurl & "', Texten='" & texten & "' Where id = "& Request.Querystring("id"))
   Response.Redirect "admin.asp"
```

Permalänk: https://www.webforum.nu/p/1180211

## #7 — tank82, 2003-10-08T20:09Z

Om ni inte förstår så säg till så ska jag försöka förklara lite bättre ;)

Permalänk: https://www.webforum.nu/p/1180215

## #8 — Palle, 2003-10-08T20:11Z

Ok jag förstår, här kommer en variant på en lösning: 

```
[red]<tr>
<td>
	<%
	
	Function IsSelected(strUno, strDos)
	
		strUno = LCase(trim(strUno))
		strDos = LCase(trim(strDos))
		If strUno = strDos Then IsSelected = " selected=""selected"""

	End Function
	
	%>

	<b>Kommun:</b><br>
	<select name="ort" size="1">
		<option value="visby"<%= isSelected(strOrt, "visby") %>>visby</option>
		<option value="södertälje"<%= isSelected(strOrt, "södertälje") %>>södertälje</option>
	</select>

</td>[/red]
```

Permalänk: https://www.webforum.nu/p/1180217

## #9 — tank82, 2003-10-08T20:17Z

ok tack, ska testa =)

Permalänk: https://www.webforum.nu/p/1180220

## #10 — tank82, 2003-10-08T20:23Z

Jag får det inte att fungera, är du 100% på att detta fungerar?

Permalänk: https://www.webforum.nu/p/1180225

## #11 — tank82, 2003-10-08T21:23Z

någon som vet?

Permalänk: https://www.webforum.nu/p/1180300

## #12 — Palle, 2003-10-08T21:46Z

> **tank82 skrev:**
>
> Jag får det inte att fungera, är du 100% på att detta fungerar?

Vad fungerar inte?
Felmeddelande?
Vad händer?

Permalänk: https://www.webforum.nu/p/1180328

## #13 — tank82, 2003-10-08T21:49Z

det händer ingenting, den går bara tillbaka till det första alternativet =(

Permalänk: https://www.webforum.nu/p/1180331

## #14 — Palle, 2003-10-08T21:56Z

Hur ser hela din kod ut nu då?

Permalänk: https://www.webforum.nu/p/1180341

## #15 — tank82, 2003-10-08T22:05Z

Så här...

```

massa kod ;)
```

Permalänk: https://www.webforum.nu/p/1180348

## #16 — Palle, 2003-10-08T22:13Z

*strOrt* i koden jag postade ska alltså ersättas av ort-värdet från databasen.

```
[red]	<select name="ort" size="1">
		<option value="stad1"<%= isSelected(RecSet("ORTKOLUMNEN_I_DATABASEN"), "stad1") %>>stad1</option>
		<option value="stad2"<%= isSelected(RecSet("ORTKOLUMNEN_I_DATABASEN"), "stad2") %>>stad2</option>
	</select>[/red]
```

Permalänk: https://www.webforum.nu/p/1180358

## #17 — tank82, 2003-10-08T22:19Z

ok så här: \<option value="Motala"\<%= isSelected(RecSet("ort"), "Motala") %\>\>Motala\</option\>

Permalänk: https://www.webforum.nu/p/1180362

## #18 — Palle, 2003-10-08T22:21Z

Om kolumnen heter *ort* så, Ja.

Permalänk: https://www.webforum.nu/p/1180364

## #19 — tank82, 2003-10-08T22:21Z

hihi kanon =)

Permalänk: https://www.webforum.nu/p/1180366

---

Tråden på webben: https://www.webforum.nu/amne/asp/88017-alternativ-dropdown