Kan tydligen inte svara på inlägg, då det står "ej tillgängligt" där man väljer forum, så blev tvungen att göra så istället.

Med nedanstående kod går det att överföra, men då har jag inte satt nån check på "EmailAddress", d.v.s. om personen redan finns i tbl1.

Skulle vilja skriva: If objRS("EmailAddress") <> objRS2("EmailAddress") Then
direkt efter While NOT..., men det fungerar ju inte. Har du månne något tips Magnus?

Dim objRS 'Recordset för Access
Dim objRS2 'Recordset för SQL
Dim strSQL 'Villkor för vad som skall hämtas från SQL

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "tbl1", objConn, adOpenStatic, adLockOptimistic

Set objRS2 = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT DISTINCT FirstName, LastName, EmailAddress " & _
"FROM tbl2 " & _
"WHERE (EmailAddress IS NOT NULL) AND (EmailAddress NOT LIKE '%somemail.se')
objRS2.Open strSQL, objConnSQL, adOpenStatic, adLockOptimistic

While NOT objRS2.EOF
objRS.AddNew
objRS("FirstName") = objRS2("FirstName")
objRS("LastName") = objRS2("LastName")
objRS("EmailAddress") = objRS2("EmailAddress")
objRS("Format") = "HTML"
objRS("Status") = True
objRS("Date_Created") = Now
objRS.Update
objRS2.MoveNext
Wend

"ej tillgängligt" innebär att du inte kan välja ett nytt forum när du postar ditt svar, du är ju redan i ett forum och måste posta svaret i samma...

Såhär kanske fungerar, har inte testat just detta exemplet, men principen borde fungera...

<code>
Dim objRS 'Recordset för Access
Dim objRS2 'Recordset för SQL
Dim strSQL 'Villkor för vad som skall hämtas från SQL

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "tbl1", objConn, adOpenStatic, adLockOptimistic

Set objRS2 = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT DISTINCT FirstName, LastName, EmailAddress " & _
"FROM tbl2 " & _
"WHERE (EmailAddress IS NOT NULL) AND (EmailAddress NOT LIKE '%somemail.se')
objRS2.Open strSQL, objConnSQL, adOpenStatic, adLockOptimistic

While NOT objRS2.EOF
objRS.MoveFirst
objRS.Find "EmailAddress='" & objRS2("EmailAddress") & "'"
if objRS.EOF Then
objRS.AddNew
objRS("FirstName") = objRS2("FirstName")
objRS("LastName") = objRS2("LastName")
objRS("EmailAddress") = objRS2("EmailAddress")
objRS("Format") = "HTML"
objRS("Status") = True
objRS("Date_Created") = Now
objRS.Update
End If
objRS2.MoveNext
Wend
</code>

/Johan

Ville bara meddela att det fungerade klockrent!!! Tänkte faktiskt inte på att det gick att göra så, annars har jag nog provat det mesta ;-)

Tack Johan!