Hello and thanks in advance.
Here is my dilema. I have a form where I collect information and on submit I send the data to a processor page and add or edit it to an Access database. If I edit the item all works just fine but when I attempt to add a New record I receive an error in my SQL string stating I need an operator
Syntax error (missing operator) in query expression 'ReviewID ='.
ReviewID is my PK therefore it should be blank this is a new record. Here is my code maybe someone could see what I am missing.
'##########################################################
'# the admin is logged in so update or add a new record.
Dim rs_reviews, strReviewID, strReviewSQL
strReviewID = Trim(Request.Form("ReviewId"))
Set rs_reviews = Server.CreateObject("ADODB.Recordset")
strReviewSQL = "SELECT * FROM tblReview WHERE ReviewID = " & strReviewID
rs_reviews.Open strReviewSQL, objConn, adOpenKeyset, adLockOptimistic
'##################################################
'# check if we have a valid record
If NOT rs_reviews.EOF Then
'do nothing
Else
If Request.Form("txtReviewID") = "" Then
rs_reviews.AddNew
Else
Response.Redirect("admin_models.asp")
End If
End If
'##########################################################
'# update or add a model to our db
rs_reviews("ModID") = Trim(Request.Form("txtmodID"))
If LEN(Request.Form("txtreview"))=0 Then
rs_reviews("review")= null
Else
rs_reviews("review") = Trim(Request.Form("txtreview"))
End If
rs_reviews.Update
response.redirect "admin_models.asp"
'##########################################################
'# Close and clean up
If Not (rs_reviews Is Nothing) Then
rs_reviews.Close
Set rs_reviews = Nothing
End If
Life's a journey enjoy the ride...
jazzz
Here is my dilema. I have a form where I collect information and on submit I send the data to a processor page and add or edit it to an Access database. If I edit the item all works just fine but when I attempt to add a New record I receive an error in my SQL string stating I need an operator
Syntax error (missing operator) in query expression 'ReviewID ='.
ReviewID is my PK therefore it should be blank this is a new record. Here is my code maybe someone could see what I am missing.
'##########################################################
'# the admin is logged in so update or add a new record.
Dim rs_reviews, strReviewID, strReviewSQL
strReviewID = Trim(Request.Form("ReviewId"))
Set rs_reviews = Server.CreateObject("ADODB.Recordset")
strReviewSQL = "SELECT * FROM tblReview WHERE ReviewID = " & strReviewID
rs_reviews.Open strReviewSQL, objConn, adOpenKeyset, adLockOptimistic
'##################################################
'# check if we have a valid record
If NOT rs_reviews.EOF Then
'do nothing
Else
If Request.Form("txtReviewID") = "" Then
rs_reviews.AddNew
Else
Response.Redirect("admin_models.asp")
End If
End If
'##########################################################
'# update or add a model to our db
rs_reviews("ModID") = Trim(Request.Form("txtmodID"))
If LEN(Request.Form("txtreview"))=0 Then
rs_reviews("review")= null
Else
rs_reviews("review") = Trim(Request.Form("txtreview"))
End If
rs_reviews.Update
response.redirect "admin_models.asp"
'##########################################################
'# Close and clean up
If Not (rs_reviews Is Nothing) Then
rs_reviews.Close
Set rs_reviews = Nothing
End If
Life's a journey enjoy the ride...
jazzz