<% If IsObject(Session("trade_conn")) Then Set conn = Session("trade_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "trade","","" Set Session("trade_conn") = conn End If %> <% If IsObject(Session("Form_email_rs")) Then Set rs = Session("Form_email_rs") Else sql = "SELECT * FROM [data]" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 If rs.eof Then rs.AddNew End If Set Session("Form_email_rs") = rs End If %> <% If cstr(Request.QueryString("Email")) <> "" Then rs.Fields("Email").Value = Request.QueryString("Email") End If If cstr(Request.QueryString("Name")) <> "" Then rs.Fields("Name").Value = Request.QueryString("Name") End If tempVar = Request.QueryString("nav_btn") On Error Resume Next If cstr(tempVar)="nav_btn_MoveFirstRecord" Then rs.MoveFirst End If If cstr(tempVar)="nav_btn_MovePrevRecord" Then rs.MovePrevious If rs.bof Then rs.MoveNext End If End If If cstr(tempVar)="nav_btn_MoveNextRecord" Then rs.MoveNext If rs.eof Then rs.MovePrevious End If End If If cstr(tempVar)="nav_btn_MoveLastRecord" Then rs.MoveLast End If If cstr(tempVar)="nav_btn_MoveAddRecord" Then rs.AddNew End If If cstr(tempVar)="nav_btn_MoveCommitRecord" Then rs.Update rs.Requery End If If cstr(tempVar)="nav_btn_MoveCancelUpdate" Then rs.CancelUpdate rs.Resync End If If cstr(tempVar)="nav_btn_MoveDeleteRecord" Then rs.Delete rs.MoveNext If rs.eof Then rs.MovePrevious If rs.bof Then rs.AddNew End If End If End If On Error Goto 0 %>