rigpig
Dec 28th, 2000, 12:11 PM
how do you do it when this is your SQL statement(s).... this is the error i get
Save request received
Save request valid
Adding new car...
2
Microsoft OLE DB Provider for SQL Server error ' 80004005'
Cannot insert or update columns from multiple tables.
/test/newlayout1.asp, line 60
this is the SQL to get the values
'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 strSQL ,dbData,1,3
if rsData.EOF then
rsData.AddNew
Response.Write "Adding new car...
"
Response.Write Request.Form("CategoryID" )
Response.Write rsData.Fields("make")
Response.Write rsData.Fields("model")
Response.Write rsData.Fields("year")
Else
Response.Write "Modifying existing car...
"
Response.Write rsData.Fields("make")
Response.Write rsData.Fields("model")
Response.Write rsData.Fields("year")
End If
rsData.Fields("year")=clng(Request.Form("year"))
rsData.Fields("make")=(Request.Form("make"))
rsData.Fields("model")=(Request.Form("model"))
rsData.Update <---THIS IS LINE 60
CarID = rsData.Fields("CarID")
Response.Write " rsData number " & CarID & " updated...
"
Response.Write rsData.Fields("make")
Response.Write rsData.Fields("model")
Response.Write rsData.Fields("year")
'save options
rsData.Close
set rsData=nothing
end if
end if
Save request received
Save request valid
Adding new car...
2
Microsoft OLE DB Provider for SQL Server error ' 80004005'
Cannot insert or update columns from multiple tables.
/test/newlayout1.asp, line 60
this is the SQL to get the values
'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 strSQL ,dbData,1,3
if rsData.EOF then
rsData.AddNew
Response.Write "Adding new car...
"
Response.Write Request.Form("CategoryID" )
Response.Write rsData.Fields("make")
Response.Write rsData.Fields("model")
Response.Write rsData.Fields("year")
Else
Response.Write "Modifying existing car...
"
Response.Write rsData.Fields("make")
Response.Write rsData.Fields("model")
Response.Write rsData.Fields("year")
End If
rsData.Fields("year")=clng(Request.Form("year"))
rsData.Fields("make")=(Request.Form("make"))
rsData.Fields("model")=(Request.Form("model"))
rsData.Update <---THIS IS LINE 60
CarID = rsData.Fields("CarID")
Response.Write " rsData number " & CarID & " updated...
"
Response.Write rsData.Fields("make")
Response.Write rsData.Fields("model")
Response.Write rsData.Fields("year")
'save options
rsData.Close
set rsData=nothing
end if
end if