Asp side skal hente tekst fra fil og lagre det i my sql db

<%
'åben din db

Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/mappe/fil.txt")
Set f = fso.OpenTextFile(filespec,1)
id=0
Do While not f.AtEndOfStream
  id=id+1
  conn.execute("insert into [tabel](Tekst,ParentID,Sprog) values('" & f.Readline & "'," & id & ",'"DK"')
Loop

f.Close
%>

Nu har jeg rettet det til følgende:
  conn.execute("INSERT INTO Data VALUES (" & id & ", 657, '', '" & f.Readline & "', 'DK', 20030914180635, , , '')")

Men får denne fejl:
[TCX][MyODBC]You have an error in your SQL syntax near ' , '')' at line 1

Jeg har ændret det hele til følgende:
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("Data.txt")
Set f = fso.OpenTextFile(filespec,1)
id=126
Do While not f.AtEndOfStream
  id=id+1
  conn.execute("INSERT INTO Data VALUES (" & id & ", 657, '', '" & f.Readline & "', 'DK', 20030914180635, , , '')")
Loop

f.Close

Hvad mener du med denne linje??

conn.execute("INSERT INTO Data VALUES (" & id & ", 657, '', '" & f.Readline & "', 'DK', 20030914180635, , , '')")

Hvis du vil sætte noget ind, skal databasen vide i hvilke felter

("INSERT INTO Data(id, nr, tomtfelt, tekst, sprog, etellerandet, tomtfelt, tomtfelt, tomtfelt) values(" & id & ", 657, '', '" & f.Readline & "', 'DK', 20030914180635, '', '', '')")

Nu har jeg rettet det til følgende:
conn.execute("INSERT INTO Data(Id, ParentID, Navn, Tekst, Sprog, Dato, Score, Stemmer, Ip) VALUES (" & id & ", 657, '', '" & f.Readline & "', 'DK', 20030914180635, , , '')")

Det giver denne fejl:
[TCX][MyODBC]You have an error in your SQL syntax near ' , '')'

hvis du ikke vil definere kolonner, skal de bare udelades:

conn.execute("INSERT INTO Data(Id, ParentID, Navn, Tekst, Sprog, Dato) VALUES (" & id & ", 657, '', '" & f.Readline & "', 'DK', 20030914180635)")

Det giver:
[TCX][MyODBC]Duplicate entry '127' for key 1

Det er stadig i min conn.execute den melder fejlen.

hov... det er fordi navn også skal slettes

conn.execute("INSERT INTO Data(Id, ParentID, Tekst, Sprog, Dato) VALUES (" & id & ", 657, '', '" & f.Readline & "', 'DK', 20030914180635)")

ellers prøv at udskrive den:

response.write "INSERT INTO Data(Id, ParentID, Tekst, Sprog, Dato) VALUES (" & id & ", 657, '', '" & f.Readline & "', 'DK', 20030914180635)"

Så får jeg:
[TCX][MyODBC]Column count doesn't match value count at row 1

En response.write giver:
INSERT INTO Data(Id, ParentID, Tekst, Sprog, Dato) VALUES (658, 126, '', 'Adam kom først, det gør mænd altid.', 'DK', 20030914180635)

er du sikker på, det er tal og ikke bogstaver, din felterne er sat til?? ellers skal du have ' ' omkring...

fandt også lige ud af, at der ikke var slettet ", ''" i values..

INSERT INTO Data(Id, ParentID, Tekst, Sprog, Dato) VALUES (658, 126, 'Adam kom først, det gør mænd altid.', 'DK', 20030914180635)

Id er Int(11)
ParentID er Int(4)
Tekst er text
Sprog er text
Dato er timestamp(14)

Jeg ændrede lige et felt og nu får jeg ingen fejl men nu står siden bare og arbejder og der sker ikke noget. Der kommer ingen fejl men der bliver heller ikke lagret noget i databasen.

Ændrede den til det sidste du skrev:

conn.execute("INSERT INTO Data(Id, ParentID, Tekst, Sprog, Dato) VALUES (658, 126, 'Adam kom først, det gør mænd altid.', 'DK', 20030914180635)")

Dette giver denne fejl:
[TCX][MyODBC]Duplicate entry '658' for key 1

Jeg kan se at den nu lagre den første linje i databsen men melder så fejlen.

prøv at sætte f.movenext ind lige før loop:

Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("Data.txt")
Set f = fso.OpenTextFile(filespec,1)
id=126
Do While not f.AtEndOfStream
  id=id+1
  conn.execute("INSERT INTO Data(Id, ParentID, Tekst, Sprog, Dato) VALUES (658, 126, 'Adam kom først, det gør mænd altid.', 'DK', 20030914180635)")
  f.movenext
Loop

f.Close

Så lige at vi havde fået angivet nogle værdier og at de ikke var varriable mere. Har ændret det til følgende:

conn.execute("INSERT INTO Data(Id, ParentID, Tekst, Sprog, Dato) VALUES (" & id & ",  126, '" & f.Readline & "', 'DK', 20030914180635)")

Men nu får er det så igen at siden bare står og køre uden at der sker noget. Den melder ingen fejl og der lagres intet i databasen.

har du prøvet der, jeg lige skrev?

Jeg fik det til at virke ... dog uden f.movenext ...

Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("aa.txt")
Set f = fso.OpenTextFile(filespec,1)
id=656
Do While not f.AtEndOfStream
  id=id+1
  conn.execute("INSERT INTO Data(Id, ParentID, Tekst, Sprog, Dato) VALUES (" & id & ",  126, '" & f.Readline & "', 'DK', 20030914180635)")
Loop

Det var da godt nok... hvad var der i vejen?

Lige en ekstra ting ... hvis jeg i min txt fil smider en titel ind også, eks:
Titel, tekst

Hvordan kan jeg få få dette også smidt ind i databasen, altså noget med:
conn.execute("INSERT INTO Data(Id, ParentID, Navn, Tekst, Sprog, Dato) VALUES (" & id & ",  126, '" & f.ReadlineTitel & "', '" & f.ReadlineTekst & "', 'DK', 20030914180635)")

Jeg ved ikke hvad der var i vejen.

hehe... nå, men det var da godt, du fandt ud af det...