<%@ LANGUAGE="VBSCRIPT" %> <% ItemID2 = "Nigerian Professional and Jobs" 'Trim(Request("Search")) %> <%=itemID2%>
<% set conn = server.createobject ("adodb.connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\vhosts\devace.com\professionals.onlinenigeria.com\db\directory.mdb" set rsID = conn.Execute("select * from profession Order by profession DESC") %> <% '## Do some Cookie bits to see when last here sponsors2 = whenAdded CurrentDate = now() '## Function to display new icon if Sponsor2 => DateAdd("d",-7,now())then isNew = " <% If strSearch <> "" Then ' MapPath of virtual database file path to a physical path. ' If you want you could hard code a physical path here. strDBPath = "C:\Inetpub\vhosts\devace.com\professionals.onlinenigeria.com\db\directory.mdb" ' Create an ADO Connection to connect to the sample database. ' We're using OLE DB but you could just as easily use ODBC or a DSN. Set cnnSearch = Server.CreateObject("ADODB.Connection") ' This line is for the Access sample database: cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" ' We're actually using SQL Server so we use this line instead: ' cnnSearch.Open Application("SQLConnString") ' Build our query based on the input. ' If u have a clue what your doing u could change the way the results are ordered. strSQL = "select * from profession where participant='y' Order by profession ASC;" ' Execute our query using the connection object. It automatically ' creates and returns a recordset which we store in our variable. Set rstSearch = Server.CreateObject("ADODB.Recordset") rstSearch.PageSize = PAGE_SIZE rstSearch.CacheSize = PAGE_SIZE ' Open our recordset rstSearch.Open strSQL, cnnSearch, adOpenStatic, adLockReadOnly, adCmdText ' Get a count of the number of records and pages ' for use in building the header and footer text. iRecordCount = rstSearch.RecordCount iPageCount = rstSearch.PageCount If iRecordCount = 0 Then ' Display no records error. %>

<% Else ' Move to the page we need to show. rstSearch.AbsolutePage = iPageCurrent %>

Nigerian Professionals
Select a Professional Category

Job where
job title, keywords or company
city, state or zip


<%= iRecordCount %> Professions Listed.

  Displaying Page <%= iPageCurrent %> of <%= iPageCount %>
.
<% Do While Not rstSearch.EOF And rstSearch.AbsolutePage = iPageCurrent 'topic = rstSearch.Fields("sponsors").Value 'topic = Replace(topic,Chr(1),"%20") 'topic = Replace(topic,Chr(37),"%20") 'topic = Replace(topic," ","%20") 'response.write topic %> <% rstSearch.MoveNext Loop %>
  " title="Click Here for Complete List"><%= rstSearch.Fields("profession").Value %>

<% If iPageCurrent > 1 Then %> <<Prev <% End If For I = 1 To iPageCount If I = iPageCurrent Then %> <%= I %> <% Else %> <%= I %> <% End If Next 'I If iPageCurrent < iPageCount Then %> Next>> <% End If %>

   

<% End If ' Close our recordset and connection and dispose of the objects rstSearch.Close Set rstSearch = Nothing cnnSearch.Close Set cnnSearch = Nothing End If %>

 

Contact:Webmaster@OnlineNigeria.com