Large piece of text in database?

[Willem-Jan Selen]

Hi everybody,

I am looking for a script in which I can replace any word in one table
(which corresponds) to other table with a link....

To for example when the name Bill Clinton is in a large piece of text in
TABLE1 and Bill Clinton is a row in TABLE2 then I want Bill Clinton in the
text to display as a link leading to a page where there's more info on Bill
Clinton from TABLE2

I was thinking something allong the way of:

TEXT = rs("largtext")

for each word in TEXT
if wordintext = rs2("TABLE2") then
TEXT = Replace(TEXT, wordintext,"<a href=info.asp?more=" & rs2("TABLE2ID") &
">" & rs2("TABLE2") & "</a>")
can any body help me?

I am using JET engine with access DB

Thanx in advance

Willem-Jan Selen

[Willem-Jan Selen]

Sorry can't figure it out.

I want the text in TABLE2 to be searched for a word corresponding to a row
in table2 and when it does the word in the text must be replaced with a
link:

<a href=information.asp?more=<% tbl2("ID") %>><% tbl2("Corresponding")
%></a>

do I use something like?

Function ThrowInSomeLinks(ByRef sText, sWhatToLookFor, sWhereShouldItLinkTo)

while not rs.EOF

ThrowInSomeLinks = Replace(sText, sWhatToLookFor, "<A href=""" &
sWhereShouldItLinkTo & """>" & sWhatToLookFor & "</A>", , , 1)

End Function

rs.moveNext
if rs.EOF
wend
set rs = Nothing
I didn't understand how to set your sWhatToLookFor and sWhereShouldItLinkTo

I don't have to loop through the TABLE2 ?


"Ray at <%=sLocation%>" <myfirstname at lane34 dot com> wrote in message
news:%2****************@tk2msftngp13.phx.gbl...

So, wait, any instance of sSpecificTextString should be set to be a link?
Okay:
sText = rs.Fields("TABLE2").Value
''close, destroy rs if finished

Function ThrowInSomeLinks(ByRef sText, sWhatToLookFor, sWhereShouldItLinkTo) ThrowInSomeLinks = Replace(sText, sWhatToLookFor, "<A href=""" &
sWhereShouldItLinkTo & """>" & sWhatToLookFor & "</A>", , , 1)
End Function
Response.write ThrowInSomeLinks(sText, "Bill Clinton",
"http://www.billclinton.com")

This is not ideal, as it will change your case to the second argument you
pass, i.e.

If sText= "BILL CLINTON WAS PRESIDENT." and you pass "Bill Clinton" as the
sWhatToLookFor argument, the result will be:

Bill Clinton WAS PRESIDENT.

Ray at work
"Willem-Jan Selen" <ws****@hotmail.com> wrote in message
news:1060630007.419378@cache2...

Hi everybody,

I am looking for a script in which I can replace any word in one table
(which corresponds) to other table with a link....

To for example when the name Bill Clinton is in a large piece of text in
TABLE1 and Bill Clinton is a row in TABLE2 then I want Bill Clinton in the text to display as a link leading to a page where there's more info on Bill

Clinton from TABLE2

I was thinking something allong the way of:

TEXT = rs("largtext")

for each word in TEXT
if wordintext = rs2("TABLE2") then
TEXT = Replace(TEXT, wordintext,"<a href=info.asp?more=" &

rs2("TABLE2ID") &

">" & rs2("TABLE2") & "</a>")
can any body help me?

I am using JET engine with access DB

Thanx in advance

Willem-Jan Selen

[Ray at]

Okay, then what did you mean when you said Bill Clinton is a row in table 2?
Perhaps what you're really looking for here is a query that joins your two
tables. Post some info about your database like what is described here,
www.aspfaq.com/5006, and then show what query you're currently using.

Ray at work

"Willem-Jan Selen" <ws****@hotmail.com> wrote in message
news:1060632896.771230@cache2...

Sorry can't figure it out.

I want the text in TABLE2 to be searched for a word corresponding to a row
in table2 and when it does the word in the text must be replaced with a
link:

[Willem-Jan Selen]

I think i am on the road... But I am not staying on it.. Why ?

<%
set rs = db.execute("Select COUNT(eid) from tbldj")

Dim table2(rs.fields.item(0))

x = 0

while not rs.EOF

table2(0) = rs("djname")

x = x + 1

rs.moveNext
if rs.EOF
wend
set rs = Nothing
Function replace_text(msg)
Dim i
if isNull(msg) = false then
for i = 0 to UBOUND(table2)
msg = Replace(msg,table2(i),"<a href='information.asp?" & i & "'>" &
table2(i) & "'>")
next
end if
replace_text = msg
End Function
set rs = db.execute("Select * from tblnewshsf where newsid = " &
Request("id"))
while Not rs.EOF
Dim msg
msg = rs("newsMsg")
msg = replace_text(msg)
out msg
rs.moveNext
if rs.EOF = false then Response.write ""
wend
set rs = Nothing
%>

THis produces the following error
Microsoft VBScript compilation error '800a0402'

Expected integer constant

test.asp, line 6

Dim table2(rs.fields.item(0))
-----------^
"Ray at <%=sLocation%>" <myfirstname at lane34 dot com> wrote in message
news:%2****************@tk2msftngp13.phx.gbl...

So, wait, any instance of sSpecificTextString should be set to be a link?
Okay:
sText = rs.Fields("TABLE2").Value
''close, destroy rs if finished

Function ThrowInSomeLinks(ByRef sText, sWhatToLookFor, sWhereShouldItLinkTo) ThrowInSomeLinks = Replace(sText, sWhatToLookFor, "<A href=""" &
sWhereShouldItLinkTo & """>" & sWhatToLookFor & "</A>", , , 1)
End Function
Response.write ThrowInSomeLinks(sText, "Bill Clinton",
"http://www.billclinton.com")

This is not ideal, as it will change your case to the second argument you
pass, i.e.

If sText= "BILL CLINTON WAS PRESIDENT." and you pass "Bill Clinton" as the
sWhatToLookFor argument, the result will be:

Bill Clinton WAS PRESIDENT.

Ray at work
"Willem-Jan Selen" <ws****@hotmail.com> wrote in message
news:1060630007.419378@cache2...

Hi everybody,

I am looking for a script in which I can replace any word in one table
(which corresponds) to other table with a link....

To for example when the name Bill Clinton is in a large piece of text in
TABLE1 and Bill Clinton is a row in TABLE2 then I want Bill Clinton in the text to display as a link leading to a page where there's more info on Bill

Clinton from TABLE2

I was thinking something allong the way of:

TEXT = rs("largtext")

for each word in TEXT
if wordintext = rs2("TABLE2") then
TEXT = Replace(TEXT, wordintext,"<a href=info.asp?more=" &

rs2("TABLE2ID") &

">" & rs2("TABLE2") & "</a>")
can any body help me?

I am using JET engine with access DB

Thanx in advance

Willem-Jan Selen

[Willem-Jan Selen]

Ok I had to work harder...!!

I changed the first part an now it worked in one go.. except, it just
changes I gues only table2(0) and not table2(1) and the rest.

"Willem-Jan Selen" <ws****@hotmail.com> wrote in message
news:1060635818.789467@cache2...

I think i am on the road... But I am not staying on it.. Why ?

<%
set rs = db.execute("Select COUNT(eid) from tbldj")

Dim table2(rs.fields.item(0))

x = 0

while not rs.EOF

table2(0) = rs("djname")

x = x + 1

rs.moveNext
if rs.EOF
wend
set rs = Nothing
Function replace_text(msg)
Dim i
if isNull(msg) = false then
for i = 0 to UBOUND(table2)
msg = Replace(msg,table2(i),"<a href='information.asp?" & i & "'>" &
table2(i) & "'>")
next
end if
replace_text = msg
End Function
set rs = db.execute("Select * from tblnewshsf where newsid = " &
Request("id"))
while Not rs.EOF
Dim msg
msg = rs("newsMsg")
msg = replace_text(msg)
out msg
rs.moveNext
if rs.EOF = false then Response.write ""
wend
set rs = Nothing
%>

THis produces the following error
Microsoft VBScript compilation error '800a0402'

Expected integer constant

test.asp, line 6

Dim table2(rs.fields.item(0))
-----------^
"Ray at <%=sLocation%>" <myfirstname at lane34 dot com> wrote in message
news:%2****************@tk2msftngp13.phx.gbl...

So, wait, any instance of sSpecificTextString should be set to be a link?

Okay:
sText = rs.Fields("TABLE2").Value
''close, destroy rs if finished

Function ThrowInSomeLinks(ByRef sText, sWhatToLookFor,

sWhereShouldItLinkTo)

ThrowInSomeLinks = Replace(sText, sWhatToLookFor, "<A href=""" &
sWhereShouldItLinkTo & """>" & sWhatToLookFor & "</A>", , , 1)
End Function
Response.write ThrowInSomeLinks(sText, "Bill Clinton",
"http://www.billclinton.com")

This is not ideal, as it will change your case to the second argument you pass, i.e.

If sText= "BILL CLINTON WAS PRESIDENT." and you pass "Bill Clinton" as the sWhatToLookFor argument, the result will be:

Bill Clinton WAS PRESIDENT.

Ray at work
"Willem-Jan Selen" <ws****@hotmail.com> wrote in message
news:1060630007.419378@cache2...

Hi everybody,

I am looking for a script in which I can replace any word in one table
(which corresponds) to other table with a link....

To for example when the name Bill Clinton is in a large piece of text in TABLE1 and Bill Clinton is a row in TABLE2 then I want Bill Clinton in

the text to display as a link leading to a page where there's more info on

Bill

Clinton from TABLE2

I was thinking something allong the way of:

TEXT = rs("largtext")

for each word in TEXT
if wordintext = rs2("TABLE2") then
TEXT = Replace(TEXT, wordintext,"<a href=info.asp?more=" &

rs2("TABLE2ID")

&

">" & rs2("TABLE2") & "</a>")
can any body help me?

I am using JET engine with access DB

Thanx in advance

Willem-Jan Selen

[Willem-Jan Selen]

OK got it working!!

This is the full code:

<%
set rs = db.execute("Select MAX(djid) from tbldj")
if rs.EOF = false then
x = rs.fields.item(0)
else
x = 0
end if
set rs = Nothing
set rs = db.execute("Select * from tbldj")
Dim table3()
ReDim table3(x)
z = 0

while not rs.EOF
y = rs("djname")
w = rs("djid")
table3(w) = y

z = z + 1

rs.moveNext
if rs.EOF = false then Response.write ""
wend
set rs = Nothing
Function replace_dj(msg)
Dim i
if isNull(msg) = false then
for i = 0 to UBOUND(table3)
msg = Replace(msg,table3(i),"<a href='informatie.asp?artiest=" & i & "'>"
& table3(i) & "</a>")
next
end if
replace_dj = msg
End Function
set rs = db.execute("Select * from tblnewshsf where newsid = " &
Request("id"))
while Not rs.EOF
Dim msg
msg = rs("newsMsg")
msg = replace_dj(msg)
out msg
rs.moveNext
if rs.EOF = false then Response.write ""
wend
set rs = Nothing
%>

Thanx!!

Willem-Jan Selen
"Willem-Jan Selen" <ws****@hotmail.com> wrote in message
news:1060630007.419378@cache2...

Hi everybody,

I am looking for a script in which I can replace any word in one table
(which corresponds) to other table with a link....

To for example when the name Bill Clinton is in a large piece of text in
TABLE1 and Bill Clinton is a row in TABLE2 then I want Bill Clinton in the
text to display as a link leading to a page where there's more info on Bill Clinton from TABLE2

I was thinking something allong the way of:

TEXT = rs("largtext")

for each word in TEXT
if wordintext = rs2("TABLE2") then
TEXT = Replace(TEXT, wordintext,"<a href=info.asp?more=" & rs2("TABLE2ID") & ">" & rs2("TABLE2") & "</a>")
can any body help me?

I am using JET engine with access DB

Thanx in advance

Willem-Jan Selen

[Chris Hohmann]

Here's a thread discussing a method to replace pharses in text with
links to additional information pages. We coined the term "SmartLinks"
to describe to methodology. It sound like what you may be looking for.
In the future, if you could provide details about the structure of your
tables, you would likely receive more detailed and informative responses
to your questions.

http://groups.google.com/groups?th=25fc5cff9fbc1a57

HTH
-Chris