---
title: "litet problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8578-litet-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "DavidB"
published: "2001-03-18T08:10:00.000Z"
updated: "2001-03-18T08:54:00.000Z"
replies: 1
views: 255
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/8578-litet-problem"
---

# litet problem

## #1 — DavidB, 2001-03-18T08:10Z

Det är så att jag använder en databas sär jag har lagrat typsnitt som besökarna själva kan välja vilket de vill ha. Databasen har jag för en lättare administration.

Jag använder mig av följande kod där besökaren väljer typsnitt. Allt är en select-grej.

```
Set Connection = CreateObject("ADODB.Connection")
Connection.Open "databas"
Set RS = Connection.Execute("SELECT * From typsnitt")
If Request.Form("update") = "preview" Then

Do until RS.EOF
Response.Write("<option value=""" & RS("typsnitt") & """")
If Request.Form("typsnitt") = typsnitt Then
Response.Write(" selected")
End If
Response.Write(">" & RS("name") & "</option>")
RS.Movenext
Loop

Else

Do until RS.EOF
Response.Write("<option value=""" & RS("typsnitt") & """")
If RS("typsnitt") = typsnitt Then
Response.Write(" selected")
End If
Response.Write(">" & RS("name") & "</option>")
RS.Movenext
Loop

End If
RS.Close
Connection.Close
```

men problemet är i denna koden

```
Do until RS.EOF
Response.Write("<option value=""" & RS("typsnitt") & """")
If Request.Form("typsnitt") = typsnitt Then
Response.Write(" selected")
End If
Response.Write(">" & RS("name") & "</option>")
RS.Movenext
Loop
```

det jag vill är att det typsnitt som besökaren har valt i selectgrejen ska vara valt efter att denne har tryckt på submitknappen. som det är nu så blir inget av alternativen selected så det är det översta som är valt. nån som har en lösning på mitt problem?

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

## #2 — @nders, 2001-03-18T08:54Z

```
If Request.Form("typsnitt") = [b]RS("typsnitt")[/b] Then
```

 :q

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/8578-litet-problem