<%@ LANGUAGE="VBSCRIPT"%> <% on error resume next Set conn = Server.CreateObject("ADODB.Connection") Set rsTecnet = Server.CreateObject("ADODB.Recordset") ConStr = "Driver={Mysql}; Server=sql1a.your-server.co.za; " & _ "Database=active_db1; UID=active_1; PWD=f8VCzTks" conn.ConnectionString = ConStr conn.Open 'conn.ConnectionTimeout=300 Server.ScriptTimeOut = 2000 cPath = "http://active.tasonline.co.za/searcher/" 'cPath = "http://bilal/searcher/" set strdivision=Request.Form("Division") set strsearchtype=Request.Form("SearchType") set strcriteria=Request.Form("Criteria") set strkeyword=Request.Form("cKey") cCat="" strsql="" cQry="" strF="" strL="" sCriteria="" sWildcard="" If Request.QueryString.Count = 0 Then ' User pressed Button set strdivision = Request.Form("Division") set strsearchtype = Request.Form("SearchType") set strcriteria = Request.Form("Criteria") set strkeyword = Request.Form("cKey") set strCat = Request.Form("cCat") Else ' User clicks on link set strdivision = Request.QueryString("Division") set strsearchtype = Request.QueryString("SearchType") set strcriteria = "containing" set strkeyword = Request.QueryString("cKey") set strCat = Request.QueryString("cCat") End If If strcriteria = "containing" then strF = "%" strL = "%" ElseIf strcriteria = "equal to" then strF = "" strL = "" ElseIf strcriteria = "start" then strF = "" strL = "%" End If if strsearchtype = "Company" then strsqlhead="SELECT * FROM TecnetHeader WHERE ComName LIKE '" & strF & strkeyword & strL &"' ORDER BY ENHANCED DESC,COMNAME" Else strsql3="SELECT * FROM CATEGORY WHERE CNAME LIKE '" & strF & strkeyword & strL &"'" strsqlhead="SELECT TecnetDetail.Keyw,TecnetDetail.ID,TecnetHeader.Enhanced,TecnetHeader.ComName FROM TecnetDetail INNER JOIN TecnetHeader ON TecnetDetail.ID=TecnetHeader.ID WHERE Keyw LIKE '" & strF & strkeyword & strL &"' ORDER BY ENHANCED DESC,COMNAME" End if If strsearchtype = "Category" Then strsqlhead="SELECT TecnetDetail.Keyw,TecnetDetail.ID,TecnetHeader.Enhanced,TecnetHeader.ComName FROM TecnetDetail INNER JOIN TecnetHeader ON TecnetDetail.ID=TecnetHeader.ID WHERE Cat LIKE '" & strF & strCat & strL &"' ORDER BY ENHANCED DESC,COMNAME" End If If strsearchtype = "Division" Then strsqlhead="SELECT DISTINCT TecnetDetail.ID FROM TecnetDetail INNER JOIN TecnetHeader ON TecnetDetail.ID=TecnetHeader.ID WHERE Division = '"& strkeyword &"' ORDER BY ENHANCED DESC,COMNAME" End If strsql=strsqlhead ' Search buttons and input Response.Write "" 'Response.Write strsql & "

" 'Response.Write strsql3 Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

Search : " Response.Write " " Response.Write "

" Response.Write "

" Response.Write "Keyword " Response.Write "Company Name

" Response.Write "Search Criteria " Response.Write "containing" Response.Write "starting with" Response.Write "equal to" Response.Write "

" Response.Write "" ' Cat Listing Set rsTecnet = conn.Execute(strsql3) If Not rsTecnet.BOF Then cTitle2= "List of Categories" If strsearchtype = "Keyword" Then Response.Write "

" Response.Write "" Response.Write "" Response.Write "

"& cTitle2 &"

" Response.Write "

" Response.Write "

" Response.Write "" Response.Write "" Do While Not rsTecnet.EOF Response.Write "" for I = 1 to 3 ' Column # 1-3 cPath1 = cPath &"searcher.asp?Division="& rsTecnet("DIVISION") &"&SearchType=Category&cCat="& rsTecnet("CNAME")&"&cKey=ALL" Response.Write "" rsTecnet.MoveNext next Response.Write "" Loop Response.Write "

" & rsTecnet("CNAME") & "

" Response.Write "

" Response.Write "
" End If End If cTitle2="" 'Company and Keyword Listing 'creating table Set rsTecnet = conn.Execute(strsql) cTitle2= "List of Companies" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" 'Response.Write "strsql : " & strsql & "

" strcomname = rsTecnet("COMNAME") 'Response.Write "Division : " & strdivision & "

" cID = "" Do While not rstecnet.EOF ' CHECK FOR DUPLICATED COMPANIES if cID <> rsTecnet("ID") then cID=rstecnet("ID") Set rsID = Server.CreateObject("ADODB.Recordset") strsql2="SELECT COMNAME,DESCR,TEL,FAX,CONTACT,EMAIL,URL,ENHANCED from TecnetHeader where ID='"& cID &"'" Set rsID = conn.Execute(strsql2) If strsearchtype ="Company" then if rstecnet.EOF then Response.Write "There are no results matching your search" end if if rsTecnet("ENHANCED") = 1 Then Response.Write "

" else Response.Write ""& rstecnet("COMNAME") & "" end if Response.Write "" Response.Write "" if rsTecnet("EMAIL") <> "" Then Response.Write "" else Response.Write "" End if if rsTecnet("DESCR") <> "" Then Response.Write "" End if Else if rsID.EOF then Response.Write "There are no results matching your search" end if 'KEYWORD if rsID("ENHANCED") = 1 Then Response.Write "" else Response.Write "" & rsID("COMNAME") & "" end if Response.Write "" Response.Write "" if rsID("EMAIL") <> "" Then Response.Write "" else Response.Write "" End if if rsID("DESCR") <> "" Then Response.Write "" End if End If Set rsID = Nothing ' Counter for No of companies listed nNo=nNo+1 'Response.Write "strsql : " & rsID("ENHANCED") & "

" 'Response.Write "strsql2 : " & strsql2 & "

" End If rsTecnet.MoveNext Loop Response.Write ""& nNo & " suppliers were found matching your search.

" Response.Write "

"& cTitle2 &"
Company Name	Telephone	Fax	e-Mail
" Else Response.Write "
" End If if rstecnet("URL")<>"" then Response.Write "" & rstecnet("ComName") & "	" & rstecnet("TEL") & "	" & rstecnet("FAX") & "

" & rstecnet("DESCR") & "
" Else Response.Write "
" End If if rsID("URL")<>"" then Response.Write "" & rsID("COMNAME") & "	" & rsID("TEL") & "	" & rsID("FAX") & "

" & rsID("DESCR") & "

" Response.Write "

" Response.Write "" rsTecnet.Close Set rsTecnet = Nothing Set conn = Nothing %>