set conn1 = server.createobject("adodb.connection")
'response.write strconn1
'response.end
conn1.Open strconn1
%>
<%
'set rsVfpCust=conn1.execute("select * from customer order by code")
'set rsVfpCust=conn1.execute("select * from customer ")
set rsVfpCust=conn1.execute("select top 10 code,name,cname,contact1,ctel1,cfax1,cemail1,salescode1,address1,address2,address3,address4,address5,lastupdate,MasVersion from webcustomer order by code")
i=0
while not rsVfpCust.eof
strSQL="select * from customer where custcode='"& replace(trim(rsVfpCust("code")),"`","") &"'"
set rs=server.createobject("adodb.recordset")
rs.open strSQL,conn,3,3
if rs.eof then
rs.addnew
rs("lastupdate")=cdate("01/01/1900")
end if