<%
Function FixQuotes(MyStr)
'hack for iol hb
If TRim(Mystr) = "" Then
MyStr = "~"
End if
FixQuotes = Replace(MyStr , "'", "''")
End Function
Dim CN '--- As ADO Connection Object
Dim RS '--- As ADO Recordset Object
Dim RSC '--- As ADO Record Count.
Dim txtSQL
'--- Passed Parameters
Dim Keyword
Dim Stepping
Dim County
Dim JobType
Dim Keywords
Dim FormCount
Dim AreaArray
Dim WhereClause
Dim RecPos
Dim RSCount
Dim i
Dim DatePosted
Dim CompanyID, CompanyFormID
RecPos = Request.QueryString("RP")
CompanyID = "COOK IRELAND"
CompanyFormID = cstr("COOK IRELAND")
If len(CompanyFormID) > 1 Then
CompanyID = CompanyFormID
End If
'--- Init Connection Object
'SET CN=Server.CreateObject ("ADODB.Connection")
'--- Open Connection Object to DSN DBName
%><%
CompanyID = Replace (CompanyID, "'", "''")
'--- Initialise SQL command
' txtSQL = "SELECT * FROM Jobs WHERE Company = '" & CompanyID & "'"
txtSQL = "SELECT * FROM Jobs WHERE Company = '" & CompanyID & "' ORDER BY DatePosted DESC"
'--- Fill ResultSet
Set RS = OraDatabase.DbCreateDynaset(txtSQL, cint(0))
'count the number of records returned
Set RSC = OraDatabase.DbCreateDynaset("Select Count(JobType) From Jobs WHERE Company = '" & CompanyID & "'", cint(0))
'assign RSCount the number of
RSCount = RSC.Fields.Item(0).Value
%>
Untitled Document
