Function ConvertUrlToLink0(sVal)
 
    Set RegEx = New RegExp  
 
          RegEx.IgnoreCase = True  
          RegEx.Global = True  
          RegEx.Pattern = "(\bhttp://[^ ]+\b)" 
          sVal = RegEx.Replace(sVal, "<a href='$1'>$1</a>")  
 
          Set RegEx = Nothing        
 
      ConvertURLToLink = sVal

End Function
Function FormatText10(sVal)
   
   sVal = Trim(sVal)
   sVal = Replace(sVal,"<","&lt;")
 
   sVal = Replace(sVal,". ",".&nbsp;")
   sVal = Replace(sVal,"  ","&nbsp;&nbsp;")
   
   sVal = Replace(sVal,vbcrlf," <br>" & vbcrlf)
   sVal = Replace(sVal,"&lt;ul>","<ul>")
   sVal = Replace(sVal,"&lt;/ul>","</ul>")
   sVal = Replace(sVal,"&lt;li>","<li>")

   sVal = Replace(sVal,"&lt;strong>","<strong>")
   sVal = Replace(sVal,"&lt;/strong>","</strong>")
   sVal = Replace(sVal,"&lt;em>","<em>")
   sVal = Replace(sVal,"&lt;/em>","</em>")
   sVal = Replace(sVal,"&lt;b>","<b>")
   sVal = Replace(sVal,"&lt;/b>","</b>")

   sVal = ConvertURLToLink(sVal)
  
   FormatText1 = sVal 
End Function

newstextI = ""
nid = request("newsid")
dim newsimage(50)
dim extension(50)	


ajg_sQry = "SELECT newsid, title, subtitle, newstextintro, newstext, visible, reldate, expdate, coverstory, disablecomment FROM news WHERE (newsid = "&nid&") "
ag_get_one_record ajg_sQry,40,iicnet
if ag_err(40)<>"" then response.write ag_err(40)

newstextI = ag_recordfield(40,4)
newstextI = formatText1(newstextI)
if len(ag_recordfield(40,2))>0 then newstextI = "<b>"&ag_recordfield(40,2)&"</b><br>"&newstextI


nid = request("newsid")
ajg_sQry = "SELECT distinct news.newsid, newsimages.imageid, "&_
" newsimages.position, images.imagename, "&_
" imagecategory.folder, news.embedimage"&_
" FROM news INNER JOIN"&_
" newsimages ON "&_
" news.newsid = newsimages.newsid INNER JOIN"&_
" images ON newsimages.imageid = images.imageid INNER JOIN"&_
" imagecategory ON images.categoryid = imagecategory.imagecategoryid"&_
" WHERE (news.newsid = "&ag_recordfield(40,0)&")"&_
" ORDER BY newsimages.position"
ag_get_recordset ajg_sQry,42,iicnet
'if ag_err(40)<>"" then response.write ag_err(40)

ajg_sQry = "SELECT documents.documentid, documents.documentname, documents.postedon, documents.postedby, documenttypes.icon, documents.filename, newsdocuments.newsdocid"&_
" FROM newsdocuments INNER JOIN documents ON newsdocuments.documentid = documents.documentid INNER JOIN documenttypes ON "&_
"    documents.documenttype = documenttypes.documenttype"&_
" WHERE newsdocuments.newsid = "&ag_recordfield(40,0)&" ORDER BY documents.postedon desc"
ag_get_recordset ajg_sQry,30,iicnet


for i = 0 to ag_recordcount(42)-1
	
	newsimage(i)=""
	extension(i)=""
	if left(right(trim(ag_multifield(42,3,i)),4),1)="." then extension(i)=right(trim(ag_multifield(42,3,i)),4)
	if left(right(trim(ag_multifield(42,3,i)),5),1)="." then extension(i)=right(trim(ag_multifield(42,3,i)),5)
	
	if ag_multifield(42,1,i)>0 then newsimage(i)="<img style='border-color:#FFFFFF;' alt='"&trim(ag_multifield(42,3,i))&"' align='right' border='10' src='http://iicnet.iicpartners.com/img/"&trim(ag_multifield(42,4,i))&"/"&ag_multifield(42,1,i)&extension(i)&"'> "
	
	imagenum = i+1
	ii="[image"&imagenum&"]"
	if ii = "[image1]" and ag_multifield(42,5,i) = "0" then
		 newsimage(i) = Replace(newsimage(i),"align='right'","align='left'")
		 newsimage(i) = Replace(newsimage(i),"border='10'","border='0'")
	end if
	newstextI = Replace(newstextI,trim(ii),trim(newsimage(i)))

next	

Response.write "<table width='450' border='0' cellspacing='0' cellpadding='0'>"
Response.write "  <tr>"
Response.write "	<td class='title0'>"&ag_recordfield(40,1)&"</td>"
Response.write "  </tr>"
Response.write "  <tr>"
Response.write "	<td height='10'></td>"
Response.write "  </tr>"
Response.write "  <tr>"
Response.write "    <td class='body0' valign='top'>"&newstextI&"<br><br>"
for i = 0 to ag_recordcount(30)-1
if not isnull(ag_multifield(30,1,i)) then ag_multifield(30,1,i) = replace(ag_multifield(30,1,i),"_"," ")
Response.write "<img src='http://iicnet.iicpartners.com/img/"&trim(ag_multifield(30,4,i))&"' />&nbsp;&nbsp;"
Response.write "&nbsp;<a href='http://iicnet.iicpartners.com/img/documents/"&ag_multifield(30,5,i)&"' class='body0'><b>"&ag_multifield(30,1,i)&"</b></a>"
next
Response.write "    </td>"
Response.write "  </tr>"
Response.write "</table>"