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