Simple Regex Replace Visual Script

Question

I have the following code

<% 
txt = ""+(rs_email.Fields.Item("g_email_body").Value)+""
Set objReg = CreateObject("vbscript.regexp")
objReg.Pattern = "[activate]"
activate = (objReg.Replace(txt,"http://www.gamtool.com/activate.asp?id="+(Recordset1.Fields.Item("g_userbase_id").Value)+""))
%>

When I run the code I get an error on the last line

activate = (objReg.Replace(txt,"http://www.gamtool.com/activate.asp?id="+(Recordset1.Fields.Item("g_userbase_id").Value)+""))
    %>

any ideas why I am getting the error?

I have updated the code above to the following:

<%
  Set regEx = New RegExp
  regEx.Global = true
  regEx.IgnoreCase = True
  regEx.Pattern = "\[activate\]"
  strText = ""+(rs_email.Fields.Item("g_email_body").Value)+""
  activate = regEx.Replace(strText, ""+(Recordset1.Fields.Item("g_userbase_id").Value)+"")
%>

If I change the ""+(Recordset1.Fields.Item("g_userbase_id").Value)+"") to any value but insert the value static then it works.

Thanks

Microsoft VBScript runtime error '800a000d' Type mismatch /email.asp, line 49 - This is the line as above — Gerald Ferreira
– Gerald Ferreira, Commented Mar 25, 2011 at 11:38
Try splitting the problematic line into multiple lines: 1) value = Recordset1.Fields.Item("g_userbase_id").Value 2) url = "http://www.gamtool.com/activate.asp?id=" + (value) + "" 3) activate = (objReg.Replace(txt, url)) On which of these lines does the error occur? — Helen
– Helen, Commented Mar 25, 2011 at 11:58
Hi Helen the problem seem to be the dynamic value from the db — Gerald Ferreira
– Gerald Ferreira, Commented Mar 25, 2011 at 13:57
What is the type of the g_userbase_id field then? It looks like you're trying to convert it into a string by concatenating empty strings. First you should use an explicit conversion function like CStr() to make it the type you need, and/or you should be using an ampersand for concatenation instead of a plus sign. — Todd
– Todd, Commented Mar 25, 2011 at 15:43

stealthyninja · Accepted Answer · 2011-03-25 19:12:20Z

1

@Gerald Ferreira: Instead of using +, use & to concatenate. You're getting the type mismatch error because VB Script thinks you're trying to add which, of course, isn't the same as concatenating.

answered Mar 25, 2011 at 19:12

stealthyninja

10.4k11 gold badges57 silver badges61 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Simple Regex Replace Visual Script

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related