---
title: "Städer..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9189-städer/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "erik_nordell"
published: "2001-04-18T12:42:00.000Z"
updated: "2001-04-27T14:26:00.000Z"
replies: 29
views: 523
page: 2
pages: 2
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/9189-städer"
---

# Städer...

_Sida 2 av 2._

## #21 — @nders, 2001-04-20T19:02Z

erik_nordell:

vad härder om du gör så här:

```
linje = Ucase(left(T.ReadLine,1)) & _
Lcase(mid(t.readline,2,len(t.readline-1)))
```

tror LarsG gjorde en pyttemiss...

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

## #22 — LarsG, 2001-04-20T19:07Z

Nja, jag tänkte att allt var i lowercase från början. 
Ser nu att jag tänkte fel när jag läser lite noga.

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

## #23 — @nders, 2001-04-20T19:09Z

jo, men det var ju apperkejs!

flaw on LarsG! :e

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

## #24 — erik_nordell, 2001-04-20T20:03Z

Får fel ändå :(

Feltyp:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: '\[string: "ABBEKÅS"\]'
/tapiren4.0/orter.asp, line 11

Linje 11 är alltså den raden nu hjälper mig med...

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

## #25 — erik_nordell, 2001-04-20T20:07Z

Jag lyckades lösa det själv :)

linje1 = T.ReadLine
linje = Ucase(left(linje1,1)) & Lcase(mid(linje1,2))

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

## #26 — LarsG, 2001-04-20T20:07Z

Kan du visa hur hela koden ser ut nu? I alla fall de 20 första raderna.

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

## #27 — P, 2001-04-21T12:57Z

Det skulle vara spännade att se koden :e

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

## #28 — erik_nordell, 2001-04-21T12:58Z

Visst vill ni se koden så...

\<select name="stad"\>
\<option\>\>\> Vart bor du? \<\<\</option\>
\<% 
Dim F, T
Set F = CreateObject("Scripting.FileSystemObject")
Set T = F.OpenTextFile(Server.mappath("orter.txt")) 
Do Until T.AtEndOfLine 
i = i + 1
linje1 = T.ReadLine
linje = Ucase(left(linje1,1)) & Lcase(mid(linje1,2))

Response.write "\<option value="""&linje&"""\>"&linje&"\</option\>"&vbcrlf
Loop %\>
\<% T.Close %\>
\</select\>

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

## #29 — PatrikB, 2001-04-26T17:58Z

... lite OT men hoppas att ni har lite överseende med det.

Denna [fil](http://www.mrwize.nu/wf/riktnummer_orter.txt) listar alla Riktnummer + Ort.

Hoppas att någon får glädje av den =P

cya,
PatrikB

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

## #30 — costodia, 2001-04-27T14:26Z

webform är bäst 
 :e

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9189-städer/page2  
Föregående sida: https://www.webforum.nu/amne/asp/9189-städer.md