0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: 
0004: <!-- #include FILE="include/adovbs.inc" -->
0005: <!-- #include FILE="include/constants.inc" -->
0006: <!-- #include FILE="include/funcs.asp" -->
0007: 
0008: <%
0009: 
0010: 	ID = Trim(Request.QueryString("ID"))
0011: 	RegNumber = Trim(Request.Form("RegNumber"))
0012: 	Name = Trim(Request.Form("Name"))
0013: 	If Name <> "" And RegNumber <> "" Then
0014: 
0015: 		Set rs = Server.CreateObject("ADODB.Recordset")
0016: 		rs.Open "mminmemory", Conn, adOpenDynamic, adLockOptimistic, adCmdTable
0017: 		rs.AddNew
0018: 
0019: 		rs("RegNumber").Value = RegNumber
0020: 		rs("Name").Value = Name
0021: 	
0022: 		rs.Update
0023: 		rs.Close
0024: 		Set rs = Nothing
0025: 
0026: 	End If
0027: 
0028: ' Response.Write("Name=" & Name & " RegNumber=" & RegNumber)
0029: 
0030: Response.Redirect("InMemoryEdit.asp")
0031: 
0032: %>