ASP hämta data från SKV fil

Hur gör jag för att hämta data med hjälp av asp från en semikolon-separerad fil.
Jag har googlat och läst igenom hela programmerings forumet men inte hittat svar på min fråga.
Det är tänkt att jag ska göra en asp sida som hämtar in data från skv filen som sedan läggs in på valda ställen i en databas.
Det är själva delen som hämtar in datan från skv filen som jag inte har en aning om hur jag ska göra. Förhoppningsvis så vet någon av er det.

Exempel från skv filen.
Första raden är igentligen inte så intressant det är mer för att jag ska veta vilka vad som är vad.

Reg. nummer;Årsmodell;Vagnspecifikation;Färg;Inbyt. Säljare;Fakturadatum;Bokförings värde;
SWS986;2002;Renault Master Skåp L1H1 2,2 dCi Premier;Vit, Solid;;2002-02-14-00.00.00;;

Behövs det mer info så är det bara att säga till.
Tack på förhand.

Jag ska läsa in varje värde i en databas, sen köra lite urval berodende på vad man vill få fram.

Jo det vore ju smidigt att hoppa över första raden, så att inte den kommer upp sen när man gör urval och visar infon :). Om ni har lust får ni gärna skriva ner lite mer som kan vara nyttigt att veta för nu står det helt stilla i huvudet, kan förhoppningvis börja tänka efter kafferasten.

Nu har jag fått till den enkla biten, att hämta all data från filen och visa plus att jag lyckades få till så att scriptet hoppar över första raden, bara det svåra kvar nu då :p. Men det går ju framåt alltid något

Då måste jag ändra alla kolumnnamn och peta, och det håller inte sen nästa gång man ska importera datan som ligger i filen för då stämmer ingenting. Och det är tänkt att man ska behöva göra så lite som möjligt för att uppdatera. Annars så hade jag lätt kört på den lösningen.

Edit:

Nu har jag fått till så att scriptet tar bort semicolonen mellan varje objekt, men jag får in i huvudet hur jag ska kunna få till loop funktionen så att den tar bort semikolonen på varje rad.
Så här ser koden ut för tillfället.

<%
dim filesys, readfile, content, bort
set filesys = CreateObject("Scripting.FileSystemObject")
set readfile = filesys.OpenTextFile("C:\Inetpub\wwwroot\skv\lagerlista.txt", 1, false)
readfile.SkipLine
content = readfile.ReadAll
readfile.close
bort = split(content, ";", 32)
%>

<% =bort(0)%>  
<% =bort(1)%>  
<% =bort(2)%>  
<% =bort(3)%>  
<% =bort(4)%>  
<% =bort(5)%>  
<% =bort(6)%>  
<% =bort(7)%>  
<% =bort(8)%>  
<% =bort(9)%>  
<% =bort(10)%>  
<% =bort(11)%>  
<% =bort(12)%>  
<% =bort(13)%>  
<% =bort(14)%>  
<% =bort(15)%>  
<% =bort(16)%>  
<% =bort(17)%>  
<% =bort(18)%>  
<% =bort(19)%>  
<% =bort(20)%>  
<% =bort(21)%>  
<% =bort(22)%>  
<% =bort(23)%>  
<% =bort(24)%>  
<% =bort(25)%>  
<% =bort(26)%>  
<% =bort(27)%>  
<% =bort(28)%>  
<% =bort(29)%>  
<% =bort(30)%>  
<% =bort(31)%>  

Jag får det här felmedelandet när jag lägger till den kodsnutten, men det kan ju vara jag som inte hänger med riktigt innan morgonkaffet.
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.
/skv/indata.asp, line 13, column 6
Dim i as interger

Där ser man, men det blir samma felmedelande ändå.

Nu så fungerar det, men nu försvinner mellanslagen på första raden, och resten av raderna är oförändrade. Någon som vet en bra tutorial sida för Loop funktioner, den på http://www.devguru.com verkade vara mest för grunderna, iofs så kanske man inte behöver mer, men det skulle vara fint med lite mer avancerade exempel så jag kanske kan börja förstå hur jag ska göra :).

Edit:
Borde man inte kunna använda det här på något sätt?
Do While f.AtEndOfStream <> True

Det där fungerade klockrent, nu är det bara lite småtrix så jag får bort första raden utan att ta bort något värde i datan jag vill ha ut :).

Edit:
Det fungerar med readfile.SkipLine åt mig fast det är en liten förskutning på några värden en bit ner på sidan, jag ska kika så jag har räknat rätt på antalet semi-kolon

Scriptet du trixade till tar det bort mellanslag? För vissa värden är ingenting i skv filen.

Tack till dom som hjälper trögtänkta mig :).

Edit:
Tro om det kan strula ur lite efter ett tag eftersom början på varje rad inte börjar med ;. Det sista värdet slutar inte med; heller.

Edit igen:
Kan det vara lättare att hämta data från en excel fil via asp?

Det hjälpte lite, men efter några rader extra så blir det kaos igen. Det är den skumma skv filen som skriver ut två st ; för lite efter några rader, och jag förstår inte varför, det borde ju bli samma på alla tycker jag. I alla fall på dom som jag har kikat på dom ser i princip likadana ut.
Jag kanske borde kika på hur man hämtar datan från en excel fil. Fast jag hittar inga bra exempel :/.

Nu fick jag tag på en skv fil som stämmer :). Men då ser den ut så här.

"Reg. nummer";"Årsmodell";"Vagnspecifikation";"Färg";"Inbyt. Säljare";...

Så hur gör jag om jag vill använda varde = trim(bort(i)) för att ta bort " tecknen, när jag pillar runt med trim funktionen så får jag bara felmedelanden med "

Edit:
Citat tecknen kan nog vara kvar, nu ska jag bara komma på hur man namnger varje "kolumn" så man kan säga åt scriptet var allt ska landa.

Edit:

Eller dom kanske måste bort ändå, om dom inte ska följa med in till databasen.

Om jag nu vill lägga in datan jag hämtar från skv filen, då måste jag väl namnge varje "kolumn" för att kunna skicka in vald data på rätt ställe i databasen. Och i så fall kan man använda radslut 0-30?

Ni ska ha ett stort tack för all hjälp speciellt xtermin8 som verkar ha offrat en hel del tid åt mig :).

Nu har jag kört fast i geggan igen. Jag lyckas inte få till databaskopplingen m.m Så här ser koden ut nu. Det var alldeles för längesen jag höll på med asp :/.

Det här felmedelandet får jag nu.

Feltyp:
Provider (0x80020005)
Det gick inte att hitta parametern.
/skv/indata2.asp, line 27

<!-- #include virtual="/skv/adovbs.inc" -->
<%
dim filesys, readfile, content, bort
set filesys = CreateObject("Scripting.FileSystemObject")
set readfile = filesys.OpenTextFile("C:\Inetpub\wwwroot\skv\lager2.txt", 1, false)
readfile.Skipline
content = readfile.ReadAll
readfile.close
bort = split(content, ";")

dim addera
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\skv\lager.mdb"
Set RecordSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM tblBil"
RecordSet.Open addera, Connect, 3, 3

RecordSet.AddNew
%>

<%

Dim i, radslut, varde
'Nu finns första raden med men om du sätter i = 32 borde den försvinna
For i = 0 to uBound(bort)
'Bort med dubbelfnutts
varde = replace(bort(i), """", "")
RecordSet.Fields.Item(i) = varde
'Kontrollera om det är dags att byta rad
if radslut = 30 then
'Det är det! Skriv ut en radbrytning och nollställ radslut.
radslut = 0
Else
'Om inte plussa på radslut variabeln
radslut = radslut +1
End if
Next

%>

<%
RecordSet.Update
RecordSet.Close
Connect.Close
%>

Edit:
Nu helt plötsligt får jag det här felmedelandet.

Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
En OLE DB-åtgärd i flera steg genererade fel. Kontrollera alla OLE DB-statusvärden som finns tillgängliga. Inget arbete utfördes.
/skv/indata2.asp, line 29

Då får jag upp det här felet, har jag låst databasen med någon "växel"?

Feltyp:
Microsoft JET Database Engine (0x80040E09)
Det går inte att uppdatera. Databasen eller objektet är skrivskyddat.
/skv/indata2.asp, line 20

Eller använder jag "RecordSet.AddNew" på fel ställe?