<%
dim connect, sql, c, r
randomize  
r = int(100*rnd)+200
c = request.querystring("gtmpch")
set connect = server.createobject("ADODB.Connection")
connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_
Server.MapPath("\perlphpasp\db\tempdb.mdb"))
sql="insert into tempfile(tmpch,tmpnum,tmpdate)values('"&c&"',"&r&",'"&Now&"')"
connect.execute(sql)   	  
connect.close
set connect = nothing
response.write("Insert : ok")
%>