wjm="contact.xls" Set conn1=Server.CreateObject("ADODB.Connection") StrConn="Driver={Microsoft Excel Driver (*.xls)};"&_ "DriverId=790; DBQ="& Server.MapPath(""&wjm&"") conn1.Open StrConn Set Rs1 = Server.CreateObject("ADODB.Recordset") Sql1="select * from [contact$]" rs1.Open Sql1,conn1,2,3 if rs1.eof=false then do while not rs1.eof set rs=server.CreateObject("adodb.recordset") sql="select * from contact" rs.open sql,conn,2,3 set rs2=server.CreateObject("adodb.recordset") sql2="select * from contact" rs2.open sql2,conn,2,3rs.addnew for i=0 to rs2.fields.count-1 rs(""&rs2.fields(i).name&"")=rs1(i) nextrs.update rs1.movenext loopend ifresponse.Write("OK")%>
Set conn1=Server.CreateObject("ADODB.Connection")
StrConn="Driver={Microsoft Excel Driver (*.xls)};"&_
"DriverId=790; DBQ="& Server.MapPath(""&wjm&"")
conn1.Open StrConn
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select * from [contact$]"
rs1.Open Sql1,conn1,2,3
if rs1.eof=false then
do while not rs1.eof
set rs=server.CreateObject("adodb.recordset")
sql="select * from contact"
rs.open sql,conn,2,3
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from contact"
rs2.open sql2,conn,2,3rs.addnew
for i=0 to rs2.fields.count-1
rs(""&rs2.fields(i).name&"")=rs1(i)
nextrs.update
rs1.movenext
loopend ifresponse.Write("OK")%>