<% 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 %>