<% Set rs = Server.CreateObject( "ADODB.Recordset" ) rs.Open "select * from payment where 1=0",conn,1,3,8 rs.AddNew rs.Fields("AIN") = CInt(request("id")) rs.Fields("username") = request("username") rs.Fields("cardtype") = request("cardtype") rs.Fields("cardnumber") = request("cardnumber") rs.Fields("expdate") = request("expdate") rs.Update rs.Close %>