Type mismatch: HTMLEncode

**jmurrayhead** · jmurrayhead, March 27th, 2008 04:48 PM

Yeap, post what you have thus far and we can work out the kinks

**Rebelle** · Rebelle, March 27th, 2008 04:59 PM

Thanks JMurrayhead,

Here is the code for the comments field on the EDIT view (sorry this one is comment vs RolloutComments in the 1st post but its the exact thing). This is the screen that shows it cut off after the double quotes.

Code:

<TD><input class="clrBg" type="text" tabIndex="26" name="Comments<%response.write(i)%>" size="200" maxlength="200" value="<%= rs("Comments") %>"</TD>

Just posting the code below for the search results screen just so you know what I have there - on this screen it shows the whole comment.

Code:

<TD><%=rs("Comments")%> &nbsp;</TD>

**jmurrayhead** · jmurrayhead, March 27th, 2008 05:01 PM

You have a maxlength set for 200 characters. Is it possible the text you are outputting is longer?

Otherwise, post your insert code so we can determine the problem from there.

**Rebelle** · Rebelle, March 28th, 2008 09:13 AM

Ok, checked my table and is set to varchar 200. and i checked, I'm not entering more than 200. I can enter something like - 8" Hammer tool and it will add it to the database with no problems, it's only when I get back to my edit screen it will show only 8 and cut off the " Hammer tool. It's like it's there but not showing in the text box.

Below is the insert code:

Code:

<%

Set rs = Server.CreateObject("ADODB.Recordset")

'build SQL
sSql = "update tblList set RegionID = " & strRegionID & ", DistrictID= " & strDistrictID & ", CatID= '" & strCatID & "',ALSize= '" & strALSize & "', ItemDesc = '" & strItemDesc & "', ToolNum = '" & strToolNum & "', EQNum = '" & strEquip & "', ETA = '" & strETA & "', DateShip = convert(datetime, '" & strDateShip & "'), Comments = '" & ValidateStr(strComments) & "', DateOrd = '" & strDateOrd & "', Vendor = '" & strVendor & "', CollarUSD = convert(money, '" & strCollarUSD & "'), TaxUSD = convert(money, '" & strTaxUSD & "'), Cost = convert(money, '" & strCost & "')"
sSql = sSql & " WHERE ListID = " & sListID & " "


	rs.Open sSql, Conn, 3, 1


nCounter = nCounter + 1
sListID = Request("ListIDRow" & nCounter)

Loop

response.redirect "SearchResults.asp"

Conn.Close
Set Conn = Nothing

%>

**jmurrayhead** · jmurrayhead, March 28th, 2008 09:28 AM

Okay, so maybe we do need to double up the double quotes. So change that function to this:

Code:

Function ValidateStr(strValue)
    strTemp = strValue
    strTemp = Trim(strTemp)
    strTemp = Replace(strTemp,"'","''")
    strTemp = Replace(strTemp, chr(34), chr(34) & chr(34))
    ValidateStr = strTemp
End Function

Try running this now.

**Rebelle** · Rebelle, March 28th, 2008 09:34 AM

Thanks JMurrayhead,

hmm...that made this 8" Hammer into 8"" Hammer when added to the database.
But when I got back in the edit mode, it still only made 8.

**jmurrayhead** · jmurrayhead, March 28th, 2008 09:37 AM

Remove the extra code I added to that function and post the code you're using to output the data to the screen.

**mehere** · mehere, March 28th, 2008 09:50 AM

don't change the quote when inserting, but when you display it ... use this

Code:

function checkOutTxt(strValue)
     checkOutTxt = replace(strValue,"""","&quot;")
end function

<TD><input class="clrBg" type="text" tabIndex="26" name="Comments<%response.write(i)%>" size="200" maxlength="200" value="<%= checkOutTxt(rs("Comments")) %>"</TD>

**Rebelle** · Rebelle, March 28th, 2008 09:50 AM

Hi JMurrayhead,

Ok, that was the code I posted yesterday .... I noticed I was using double quotes around the rs value, I changed that to single and it looks like it's working now.....I can see the whole comment 8" Hammer in edit view.

See in red.

Code:

<TD><input class="clrBg" type="text" tabIndex="26" name="Comments<%response.write(i)%>" size="200" maxlength="200" value='<%= rs("Comments") %>'</TD>

Thank you for your help with this!

**Rebelle** · Rebelle, March 28th, 2008 10:28 AM

Thanks Mehere!!!
That was it!!!
Works well!!!

Thread: Type mismatch: HTMLEncode

LinkBack

Thread Tools

Display

Similar Threads

Data Type Mismatch in Criteria Expression

Bookmarks

Bookmarks

Posting Permissions