01.
<%
02.
vgood=0
03.
vbad=0
04.
Set
csv = Server.CreateObject(
"ADODB.Connection"
)
05.
csv.Open
"Provider=Microsoft.Jet.OLEDB.4.0;"
& _
06.
"Data Source="
& Server.MapPath(
"./database/"
) &
";"
& _
07.
"Extended Properties="
"text;HDR=Yes;FMT=Delimited"
""
08.
09.
Set
acc = Server.CreateObject(
"ADODB.Connection"
)
10.
acc.Open
"Provider=Microsoft.Jet.OLEDB.4.0;"
& _
11.
"Data Source="
& Server.MapPath(
"./database/db1.mdb"
) &
";"
12.
Set
accRS = Server.CreateObject(
"ADODB.RecordSet"
)
13.
accRS.Open
"tbl_clients"
, acc, 3, 3
14.
Set
csvRS = csv.Execute(
"SELECT * FROM db1.csv"
)
15.
accRS.AddNew
16.
17.
Do
Until
csvRS.EOF
18.
accRS(
"custname"
) = csvRS(
"Name"
)
19.
accRS(
"custemail"
) = csvRS(
"Email"
)
20.
accRS(
"custmemtype"
) = csvRS(
"MembershipType"
)
21.
accRS(
"custmemgroup"
) = csvRS(
"Interest"
)
22.
On
Error
Resume
Next
23.
accRS.Update
24.
If
Err.Number > 0
Then
25.
vbad=vbad+1
26.
If
InStr(Err.Description,
"duplicate value"
) = 0
Then
27.
28.
Response.
End
29.
End
If
30.
31.
Else
32.
33.
accRS.AddNew
34.
vgood=vgood+1
35.
End
If
36.
On
Error
GoTo
0
37.
csvRS.MoveNext
38.
Loop
39.
accRS.Close
40.
csvRS.Close
41.
%>