5 svar · 263 visningar · startad av SPinckney
Hej,
jag har ett txt dokument med 300 emailadresser. Nu vill jag lägga in alla dessa i databasen men inte en för en.
Hur gör jag detta på bästa sätt?
Lägger in dom med FSO?
borde väll gå men en <textarea> eller att man tar varje rad som e-mail addressena i txt dokumentet... men jag har inte någon aning hur man ska kunna göra det :(
ligger dem kommaseparerade (,) eller en på varje rad?
En på varje rad
helt taget ur huvudet :OO
[red]
<%
Dim filesys, strEmail
Set filesys = CreateObject("Scripting.FileSystemObject")
Set strEmail= filesys.OpenTextFile("c:\somefile.txt", 8)
'diverse databaskopplingar
Do until strEmail.AtEndOfStream = true
strMail = strEmail.ReadLine
strSQL = "INSERT INTO tabellen(email)VALUES('"&strMail&"')
objCon.Execute(strSQL),,128
strEmail.SkipLine
loop
testfile.Close
'Stäng databas kopplingarna
%>[/red]
hoppas att det funkar
Detta ser bra ut.
Tack icaaq