@ndersMedlem sedan juni 200032 967 inläggerik_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...
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>
LLarsGMedlem sedan dec. 200012 464 inlägg 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.
------------------
essentitia preter non sans multiplicandum
@ndersMedlem sedan juni 200032 967 inläggjo, men det var ju apperkejs!
flaw on LarsG! :e
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>
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))
------------------
Erki Nörd!
http://www.Tapiren.net - Din COMMUNITY PÅ intErnET.
Verktygsladan.com - för dig som vill ha gratis forum, gästbok mm utan reklam!
LLarsGMedlem sedan dec. 200012 464 inlägg Kan du visa hur hela koden ser ut nu? I alla fall de 20 första raderna.
------------------
essentitia preter non sans multiplicandum
PPMedlem sedan jan. 20012 204 inlägg Det skulle vara spännade att se koden :e
------------------
"Man kommer fortare fram till målet om man kryper åt rätt håll än springer åt fel håll"
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>
------------------
Erki Nörd!
http://www.Tapiren.net - Din COMMUNITY PÅ intErnET.
Verktygsladan.com - för dig som vill ha gratis forum, gästbok mm utan reklam!
PPatrikBMedlem sedan mars 20002 836 inlägg ... 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
------------------
Ingenting är omöjligt.
Det omöjliga tar bara något längre tid att genomföra.
CcostodiaMedlem sedan aug. 2000864 inlägg webform är bäst
:e
------------------
Mvh Martin Persson
www.Costodia.com
[Redigerat av costodia den 27 apr 2001]