Dim cn
Dim rs

ID = request("ID")
if ID = "" then ID = 0

set cn = CreateObject("ADODB.Connection")
cn.open "ODBC", "sa" ,""

sql = "Select * from TableName where ID = " & ID

set rs = CreateObject("ADODB.Recordset")
rs.open sql, cn, adOpenKeyset, adLockPessimistic, adCmdText

if RS.EOF then RS.AddNew
call genInsert("Name","Name")
rs.Update

ID = rs("ID")

rs.close
set rs = nothing
cn.close
set cn=nothing

'**********************************************************
'automates the inserting of data to an open rs recordset
'**********************************************************
Public Function genInsert(strField, strRequest)

 if request(strRequest) <> "" then
  rs(strField) = request(strRequest)
  genInsert = true
 else
  genInsert = false
 end if
 
end Function 

ASP Note:
Must include "adovbs.inc" for code to run.

<!--#include file="includes/adovbs.inc"-->