hente numre fra en tekstfil

Set objFSO = server.createobject("scripting.filesystemobject")
Set ObjNewFile = objFSO.OpenTextFile(minFil, 1, Create)
Do While not ObjNewFile.AtendOfStream
  newline = ObjNewFile.ReadLine
  .....
  .....
loop

hvad skal jeg indstætte istedet for ..... ??

din kode til at indsætte i databasen

Eks:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "din connection string"

set fs=Server.CreateObject("Scripting.FileSystemObject")
set file = fs.OpenTextFile(Server.Mappath("filen.txt"),1)
do while not file.AtEndOfStream
  str = file.readline
  SQL = "insert into tabelnavn (telefon) values ('" & str & "')"
  Conn.Execute(SQL)
loop
%>

har prøvet dette men så melder den fejl..

<%
Set objFSO = server.createobject("scripting.filesystemobject")
Set ObjNewFile = objFSO.OpenTextFile(afvistenumre.txt, 1, Create)
Do While not ObjNewFile.AtendOfStream
  newline = ObjNewFile.ReadLine
 
  response.write newline & "<br>"
 
  loop

%>

hvad er fejlen??

intern http-500 serverfejl..

...siden kan ikke vises

du skal have den fulde sti til filen... c:\****\***\afvistenumre.txt

<%
Set objFSO = server.createobject("scripting.filesystemobject")
Set ObjNewFile = objFSO.OpenTextFile("http://www.smschancen.dk/afvistenumre.txt", 1, Create)
Do While not ObjNewFile.AtendOfStream
  newline = ObjNewFile.ReadLine
 
  response.write newline & "<br>"
 
  loop

%>

...men stadig samme fejl...?

Ikke web sti. Sti på computeren......

hvordan finder jeg den?

Server.Mappath("afvistenumre.txt")

har fået det til at virke nu. mange tak. læg et svar...

ok

jeg vil lige anbefale at du slår "vis meddelelse om uskadelige http-fejl" fra i IE, da du så kan se fejlkoder og linjenr hvor de optræder. Det gør det nemmere at finde fejl.

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"