<% @LANGUAGE = VBScript %>
<% Option explicit %>
<!--#include virtual="/chrisdev/incfuncstext.asp"-->
<%
Response.Expires = 0
Dim objConn, objRS, strQuery, tempvar, strQuery2, keyword, bAll, textout
Dim strConnection
dim i_id, s_search, pagein, searchterm,t,i,TempoJusto,StartNum,HighlightedText,TextIn,txtToHighlight
keyword = objRS("Keywords")' String to search in.
i_id = cint(request.querystring("ID"))
s_search = cstr(request.querystring("search"))
Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "DSN=CAGeHelp;Database=Front;"
strConnection = strConnection & "UID=sa;PWD=;"
objConn.Open strConnection
strQuery = "SELECT Keywords, Helpinfo, Group, Subgroup FROM helpfile "
strQuery = strQuery & " WHERE HN = " & i_id
strQuery = strQuery & " ORDER BY Keywords"
Set objRS = objConn.Execute(strQuery)
dim SearchString,SearchChar
SearchChar = s_search
'textout = InStr(1, SearchString, SearchChar)
response.write PM
bAll = true
textout = HighLight(s_search,keyword,bAll)
response.write textout
%>
<script language="JavaScript">
<!--
function FP_preloadImgs() {//v1.0
var d=document,a=arguments; if(!d.FP_imgs) d.FP_imgs=new Array();
for(var i=0; i<a.length; i++) { d.FP_imgs[i]=new Image; d.FP_imgs[i].src=a[i]; }
}
function FP_swapImg() {//v1.0
var doc=document,args=arguments,elm,n; doc.$imgSwaps=new Array(); for(n=2; n<args.length;
n+=2) { elm=FP_getObjectByID(args[n]); if(elm) { doc.$imgSwaps[doc.$imgSwaps.length]=elm;
elm.$src=elm.src; elm.src=args[n+1]; } }
}
function FP_getObjectByID(id,o) {//v1.0
var c,el,els,f,m,n; if(!o)o=document; if(o.getElementById) el=o.getElementById(id);
else if(o.layers) c=o.layers; else if(o.all) el=o.all[id]; if(el) return el;
if(o.id==id || o.name==id) return o; if(o.childNodes) c=o.childNodes; if(c)
for(n=0; n<c.length; n++) { el=FP_getObjectByID(id,c[n]); if(el) return el; }
f=o.forms; if(f) for(n=0; n<f.length; n++) { els=f[n].elements;
for(m=0; m<els.length; m++){ el=FP_getObjectByID(id,els[n]); if(el) return el; } }
return null;
}
// -->
</script>
<HTML>
<BODY onload="FP_preloadImgs(/*url*/'button2D.jpg',/*url*/'button2E.jpg')">
<font face="Arial" size="2">
<a href="default.asp">
<img border="0" id="img1" src="button2C.jpg" height="20" width="100" alt="Back to search" onmouseover="FP_swapImg(1,0,/*id*/'img1',/*url*/'button2D.jpg')" onmouseout="FP_swapImg(0,0,/*id*/'img1',/*url*/'button2C.jpg')" onmousedown="FP_swapImg(1,0,/*id*/'img1',/*url*/'button2E.jpg')" onmouseup="FP_swapImg(0,0,/*id*/'img1',/*url*/'button2D.jpg')" fp-style="fp-btn: Border Left 1" fp-title="Back to search"></a></font><p>
<font face="Arial" size="2">Help Topic Information <BR> </font></p>
<table border="0" width="100%" cellspacing="3" cellpadding="2">
<tr>
<td width="114"><font face="Arial" size="2">Keywords</font></td>
<td><font face="Arial" size="2"><% Response.Write objRS("Keywords") %></font></td>
</tr>
<tr>
<td width="114"><font face="Arial" size="2">Group </font></td>
<td><font face="Arial" size="2"><% Response.Write objRS("Group") %>
</font>
</td>
</tr>
<tr>
<td width="114"><font face="Arial" size="2">Subgroup</font></td>
<td><font face="Arial" size="2"><% Response.Write objRS("SubGroup") %></font></td>
</tr>
<tr>
<td width="114"><font face="Arial" size="2">Help Information
</font></td>
<td><font face="Arial" size="2"><% Response.Write objRS("Helpinfo") %></font></td>
</tr>
</table>
<p><font face="Arial" size="2"><BR>
<%While Not objRS.EOF%>
<BR><BR>
<% Response.Write objRS("Helpinfo")
objRS.MoveNext
Wend
objRS.close
objConn.close
Set objRS = Nothing
Set objConn = Nothing%>
</font></p>
</BODY>
</HTML>
lol