<%@ Language=VBScript %>

 

<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("dd/test1.mdb") 'set rs=server.CreateObject("Adodb.Recordset") 'rs.open "table2",conn,2,2 sql="Update table2 set email_no=50" set rs=conn.Execute(sql) conn.close 'if rs.EOF=false then 'session("email_count")=rs.Fields(0) 'session("email_count")=session("email_count")+1 'rs.Fields(0)=session("email_count") 'rs.Update 'end if 'rs.Close 'conn.Close %>