Hi!

We use an .ASP article publishing software and works very good, but has some limitations that we would like to get around it. This is the problem: The script publishes the article's image, headline abd summary alltogether, no space in between, there's no control as far as padding between the image and the text, etc., to find a workaround we substituted the following line in the original script:

articlelist=articlelist &thisimage&"<b>"&rs("headline")&"</b>" & closetag & "</font>"

for this:

table_new="<table width='100%"&"' border='0"&"' cellspacing='5"&"' cellpadding='0"&"'><tr><td>&thisimage&</td><td><b>&rs("headline")&</b></td></tr></table>"
articlelist=articlelist &table_new & closetag & "</font>"

to try to split the output in a table, so we can beside other things like applying css styles, control de output's looks, but there's something here that is not working, while it does the job of displaying the news the way we want the link doesn't work, I mean, you can see the link, it takes the css a: link property, when you hover over the text the color changes, but the cursor never changes to a hand, and when you click on it nothing happens, by looking at it, can you tell what's wrong with our "workaround"?

Thanks !


P.D.: Below IŽll include the original .asp in case you need more to look at, the lines we are refering to starts at 155

sample.asp:


Code:
<!-- #include file="configdata.asp" -->
<!-- #include file="databasedata.asp" -->
<!-- #include file="incGetThumbnail.asp" -->
<!-- #include file="incCache.asp" -->
<%
response.buffer=true
response.flush
zoneid=request("z")
if instr(zoneid,"$")<>0 or zoneid="" then response.end
nocache=request("nocache")
fdate=request("fdate")
if fdate<>"" then zonecache=""

'/// Check Protection ///
callingurl=lcase(Request.ServerVariables("HTTP_REFERER"))
if zoneprotection<>"any" and instr(callingurl,lcase(applicationurl))=0 and callingurl<>"" then
	specialurls=split(lcase(specialurls),";")
	for x=0 to ubound(specialurls)
		if len(specialurls(x))>5 then
			if instr(specialurls(x),"http://")=0 then specialurls(x)="http://"&specialurls(x)
			if instr(callingurl,specialurls(x))=1 then 
				takeaction=true
				exit for
			end if
		end if
	next
	if zoneprotection="restricted" and takeaction=false then response.end
	if zoneprotection="banned" and takeaction=true then response.end
end if

'/// Zone Cache  ///
if zonecache<>"" then
	dim resultfile
	resultfile=""
	call getcache("zone",nocache)
end if

'//// Override Default Parameters 
articlespz=request("h")			'Number of headlines 0-Unlimited
showsummary=request("ss")		'Show Summary Y,N
showsource=request("sc")		'Show Source Y,N
showdates=request("sd")			'Show Dates Y,N
showtn=request("st")			'Show Thumbnail Y,N
displayhoriz=request("d")		'Display V-Vertical, H-Horizontal
textalign=request("al")			'Align
cellcolor=request("cc")			'Cell Color
targetframe=request("target")	'Targetframe
zonefont=request("font")		'Font
fontcolor=request("color")		'Font Color
fontsize=request("size")		'Font Size
isarchive=request("isarchive")	'List only Archives
stdate=request("stdate")		'With Start Date Like
edate=request("edate")			'With End Date Like
pdate=request("pdate")			'With Posted Date Like
hdate=request("hdate")			'With Headline Date Like
sort=request("sort")			'Sorting Criteria
ord=request("ord")				'Order (asc,desc)


today=year(now)&"/"&right("0"&month(now),2)&"/"&right("0"&day(now),2)
if fdate<>"" then today=fdate

psql="select * from vArticlesZones where "
if isnumeric(zoneid) then 
	psql=psql & "zoneid="&zoneid
else
	psql=psql & "zonename='"&zoneid&"'"
end if

if isarchive="" or isarchive="n" then psql=psql &" and status=1 " else psql=psql & "and status=4"

if stdate="" and edate="" and pdate="" and hdate="" then
	psql=psql & " and startdate<='"&today&"' and (enddate>='"&today&"' or enddate='-')"
else
	if stdate<>"" then psql=psql & " and startdate like '"&stdate&"%'"
	if edate<>"" then psql=psql & " and enddate like '"&edate&"%'"
	if pdate<>"" then psql=psql & " and posted like '"&pdate&"%'"
	if hdate<>"" then psql=psql & " and headlinedate like '"& hdate & "%'"
end if

if sort<>"" then psql=psql & "order by "&sort else psql=psql & " order by startdate  "
if ord<>"" then psql=psql & " " & ord

set conn=server.createobject("ADODB.Connection")
conn.open connection
set rs=conn.execute(psql)
if rs.eof then 
	if nonewsmessage<>"" then articlelist="<div align=center><br>"&nonewsmessage&"<br>&nbsp;</div>" else articlelist=""
else
	'/// Headlines Per Zone
	if articlespz<>"" then
		articlespz=cint(articlespz)
	else
		articlespz=rs("articlespz")
	end if
	
	'/// Display Summary
	if showsummary="" then
		showsummary=rs("showsummary")
	elseif showsummary="n" then
		showsummary=""
	end if
	
	'/// Display Source
	if showsource="" then
		showsource=rs("showsource")
	elseif showsource="n" then
		showsource=""
	end if
	
	'/// Display Dates
	if showdates="" then
		showdates=rs("showdates")
	elseif showdates="n" then
		showdates=""
	end if
	
	'/// Display Thumbnail
	if showtn="" then
		showtn=rs("showtn")
	elseif showtn="n" then
		showtn=""
	end if
	
	'/// Display Articles Horizontally
	if displayhoriz="" then
		displayhoriz=rs("displayhoriz")
	elseif displayhoriz="v" then
		displayhoriz=""
	end if
	
	if zonefont="" then zonefont=rs("zonefont")
	if fontsize="" then fontsize=rs("fontsize")
	if fontcolor="" then fontcolor=rs("fontcolor")
	if fontcolor<>"" then fontcolor=" fontcolor='"&fontcolor&"'"
	if targetframe="" then targetframe=rs("targetframe")
	if targetframe<>"" then target=" target='"&targetframe&"'" else target=""
	if textalign="" then textalign=rs("textalign")
	if cellcolor="" then cellcolor=rs("cellcolor")
	if cellcolor<>"" then cellcolor=" bgcolor='"&cellcolor&"'"
	
	do until rs.eof
		closetag=""
		summary=rs("summary")&""
		sumary=server.htmlencode(summary)
		if rs("articleurl")<>"" and openexternal<>"" then thistarget="target=_blank"  else thistarget=target
		c=c+1
		if rowmade="" or displayhoriz="" then articlelist=articlelist & "<tr>"
		if displayhoriz<>"" then rowmade="1"
		articlelist=articlelist & "<td align='"&textalign&"' width=[WIDTH] left valign=top "&cellcolor&">"
		if showtn<>"" then thisimage=gettnimage(rs("articleid"),textalign) else thisimage=""
		articlelist=articlelist & "<font face='"&zonefont&"' size='"&fontsize&"'"&fontcolor&">"
		if rs("article")<>"" or rs("articleurl")<>"" then articlelist=articlelist & "<a href='"&applicationurl&"anmviewer.asp?a="&rs("articleid")&"&z="&zoneid&"'"&thistarget&">" : closetag="</a>"

		articlelist=articlelist &thisimage&"<b>"&rs("headline")&"</b>" & closetag & "</font>"

		if showdates<>"" and rs("headlinedate")<>"" then articlelist=articlelist & "<br><font face='"&zonefont&"' size='"&fontsize&"'"&fontcolor&"><i>"&rs("headlinedate")&"</i></font>"
		if showsource<>"" and rs("source")<>"" then articlelist=articlelist & "<br><font face='"&zonefont&"' size='"&fontsize&"'"&fontcolor&"><i>"&rs("source")&"</i></font>"
		if showsummary<>"" and summary<>"" then articlelist=articlelist & "<br><font face='"&zonefont&"' size='"&fontsize&"'"&fontcolor&">"&replace(summary,vbcrlf,"<br>")&"</font>"
		if readmore<>"" then articlelist=articlelist &"<br><font face='"&zonefont&"' size='"&fontsize&"'"&fontcolor&">"
		if closetag<>"" then articlelist=articlelist & "<a href='"&applicationurl&"anmviewer.asp?a="&rs("articleid")&"&z="&zoneid&"'"&thistarget&">"&readmore&"</a>"
		articlelist=articlelist &"</font>"
		articlelist=articlelist&"</td>"
		if displayhoriz="" then articlelist=articlelist & "</tr>"
		rs.movenext
				
		'/// Display Limited Articles ?
		if articlespz>0 and c>=articlespz then exit do
	loop

	'/// Get Appropiate Cell Width
	width="100%"
	if displayhoriz<>"" then 
		if c=0 then c=1
		articlelist=articlelist & "</tr>"
		width=int(100/c)&"%"
	end if
	articlelist=replace(articlelist,"[WIDTH]",width)

	articlelist="<table width=100% cellspacing=1 cellpadding=3 border=0>"&articlelist&"</table>" 
end if
rs.close
set rs=nothing
conn.close
set conn=nothing

articlelist=replace(articlelist,"\","\\")
articlelist=replace(articlelist,"/","\/")
articlelist=replace(articlelist,vbclrf,"\n")
articlelist=replace(articlelist,chr(34),"\"&chr(34))
articlelist=replace(articlelist,"'","\'")
articlelist="document.write('"&articlelist&"');"

'/// Do Cache ? ///
if zonecache<>"" and resultfile<>"" then call writecache(resultfile,articlelist)

response.write articlelist
response.end
%>