<%
sub insertdata  
  randomize  
  c = chr(int(26*rnd)+65) + chr(int(26*rnd)+65) + chr(int(26*rnd)+65)
  r = int(10000*rnd)
  sql="insert into tempfile(tmpch,tmpnum,tmpdate)values('"&c&"',"&r&",'"&Now&"')"
  connect.execute(sql) 
  response.write(sql & " : ok<br>")  	  
end sub
' =====
on error resume next
dim connect, sql, objerr, c, r
set connect = server.createobject("ADODB.Connection")
connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_
Server.MapPath("\perlphpasp\db\tempdb.mdb"))
sql = "create table tempfile (tmpch char(20), tmpnum integer, tmpdate char(20))"
connect.execute(sql) 
if connect.errors.count > 0 then
  for each objerr in connect.errors      
    response.write(objerr.description & "<br>")  	
  next
else
  response.write(sql & " : ok<br>")  	
  for i = 1 to 5 : insertdata : next
end if
connect.close
set connect = nothing
%>