This damn page is giving me a headache and i need some help to get the thing up and running so could some one please help me out. This is for a used car page and what i need it to do is add new/update/delete. i have included some debugging code but all that is telling me that it it sorat working but not 100%. Heres the deal I can add a new and modify and existing record but when i do that i get errors out of nowhere. addning new doesn't refresh the list to show the new listing (ERROR #1) and and the form disappears after you addnew/modify a record (ERROR #2). I will include the URL for you to get a visual www2.shaganappi.com/pages/newlayout.asp. PLEASE HELP ME I AM DYING!
<%
Dim dbData 'connection to database (ADODB.Connection)
Dim rsData 'recordset to store cars in the dB
Dim strSQL
Dim rsOptions 'car options
Dim CategoryID
Dim VehicleID 'gets proper information related to selection
Dim numincol '
Dim i 'counter
Dim rsCar
Dim rsOption
Dim a

CategoryID = 0
VehicleID = 0

If Request.Form("CategoryID") <> vbNullString Then CategoryID = Request.Form("CategoryID")
If Request.Form("VehicleList") <> vbNullString AND Request.Form("Section") = vbNullString Then VehicleID = CLng(Request.Form("VehicleList"))

'Connection to Database
Set dbData = Server.CreateObject("ADODB.Connection")
dbData.Open Application("DSN")

'Connection to Recordsets
strSQL = " SELECT used_options.*, (SELECT CarID from used_car_options where OptionID = used_options.ID and CarID= " & VehicleID & ") as Exist"
strSQL = strSQL & " from used_options"
strSQL = strSQL & " Order by Description"
Set rsOptions = Server.CreateObject("ADODB.Recordset")
rsOptions.Open strSQL, dbData, 1, 3

strSQL = "SELECT * From used_cars"
strSQL = strSQL & " LEFT JOIN used_category ON used_cars.CategoryID = used_category.ID"
strSQL = strSQL & " LEFT JOIN used_car_options ON used_cars.CarID = used_car_options.CarID"
strSQL = strSQL & " LEFT JOIN used_options ON used_car_options.OptionID = used_options.ID"
strSQL = strSQL & " WHERE used_cars.CarID = " & VehicleID

if Request.Form("save")="save" then
Response.Write "Save request received
"
if Request.Form("year")<>vbnullstring and Request.Form("make")<>vbnullstring and Request.Form("model")<>vbnullstring then
Response.Write "Save request valid
"
set rsData=server.CreateObject("ADODB.Recordset")
rsData.Open "SELECT * FROM used_cars WHERE CarID = " & Request.Form("VehicleList"),dbData,1,3
if rsData.EOF then
rsData.AddNew
Response.Write "Adding new car...
"
Else
Response.Write "Modifying existing car...
"
End If
rsData.Fields("year")=clng(Request.Form("year"))
rsData.Fields("make")=(Request.Form("make"))
rsData.Fields("model")=(Request.Form("model"))
rsData.Fields("color")=(Request.Form("color"))
if Request.Form("Price")<>vbnullstring then rsData.Fields("Price")=ccur(Request.Form("Price"))
if Request.Form("kms")<>vbnullstring then rsData.Fields("Kms")=clng(Request.Form("kms"))
rsData.Update
carID = rsData.Fields("CarID")
Response.Write "rsData number " & carID & " updated...
"
rsData.Close
set rsData=nothing
end if
elseif Request.Form("save")="delete" then
if clng(Request.Form("VehicleList")) > 0 then
dbData.Execute "DELETE FROM used_car_options WHERE CarID = " & Request.Form("VehicleID")
dbData.Execute "DELETE FROM used_cars WHERE CarID = " & Request.Form("VehicleID")
end if
end if
%>


this code below produces error #2 on submit

<font face="arial" size="2">Make</font> <input type="text" name="make" value="<%If CarID <> vbNullString then Response.Write rsData.Fields("Make")%>">