<% dim conn dim connstr on error resume next connstr="DBQ="+server.mappath("inc/casss.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr sub rsclose rs.close set rs=nothing end sub sub connclose conn.close set conn=nothing end sub %> <% t1=trim(request.form("emailbox")) 'emailbox if t1="" then Response.Write "back, please input emailbox£¡" else sql="Select * From email WHERE id=Null" set rs=Server.CreateObject("Adodb.Recordset") rs.Open sql,Conn,1,3 rs.Addnew rs("emailbox")=t1 rs("etime")=Now() rs.Update response.redirect "index.asp" connclose() Response.End End if %>