Städer...

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...

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.

jo, men det var ju apperkejs!

flaw on LarsG!

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...

Jag lyckades lösa det själv

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

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

Det skulle vara spännade att se koden

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>

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

Denna fil listar alla Riktnummer + Ort.

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

cya,
PatrikB

webform är bäst