With an MS Access database and ASP, I want to insert a row. The problem is that one of the columns, which is the iten description, may contain characters like a single quote ', double quotes ", pound signs # and any other character. When I perform the insert, sometimes the update is terminated at the '#' and only part of the field OrderItemTitle (item description) gets updated. Example: if the item description is "White 1" binder 8 x 10", when the item is added it would say ""White 1".
Can some one tell me how to get around this please. Thanks in advance for your time.
Paul
Can some one tell me how to get around this please. Thanks in advance for your time.
Paul
Code:
'Open Database Connection
Dim OrderDB,rsIssues,SC_Conn
Set OrderDB = Server.CreateObject("ADODB.Connection")
OrderDB.Mode = adModeReadWrite
OrderDB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=c:\inetpub\[URL unfurl="true"]wwwroot\_private\myacccessdb.mdb")[/URL]
OrderItemIssue= Request("IssueUnit")
OrderItemCode = Request("ItemID")
OrderItemClient = Request("client")
OrderItemWhse = Request("whse")
CurrOrderID = Request("CurrOrdID")
OrderItemQty = Trim(Request.form("f_ItemQty"))
If OrderItemQty = "" Then
OrderItemQty = 1
End if
OrderItemTitle = Request.querystring("ItemName")
OrderItemTitle = Replace(OrderItemTitle,"'","''")
OrderItemPrice = Request.querystring("ItemCost")
ActionQuery = ""
ActionQuery = ActionQuery & "INSERT INTO OrderItems "
ActionQuery = ActionQuery & "(OrderRef,OrderItemClient,OrderItemWhse,OrderItemTitle,OrderItemCode,OrderItemQty,OrderItemIssue)"
ActionQuery = ActionQuery & "VALUES("
ActionQuery = ActionQuery & CurrOrderID & ","
ActionQuery = ActionQuery & "'" & OrderItemClient & "',"
ActionQuery = ActionQuery & "'" & OrderItemWhse & "',"
ActionQuery = ActionQuery & "'" & OrderItemTitle & "',"
ActionQuery = ActionQuery & "'" & OrderItemCode & "',"
ActionQuery = ActionQuery & "" & OrderItemQty & ","
ActionQuery = ActionQuery & "'" & OrderItemIssue & "'"
ActionQuery = ActionQuery & ")"
OrderDB.Execute(ActionQuery)
OrderDB.Close
Set OrderDB = Nothing