<%
'Declare recordset object
Set RS = server.CreateObject("ADODB.Recordset")
'Set data connection
RS.ActiveConnection = GetDataConnection_WhaleReadString()
'Set query
query = "SELECT Homepage FROM CompanyProfile WHERE (CompanyID = '" & Application("RecruiterCompanyID") & "')"
'Get query
RS.Open (query)
if RS.EOF then
RecruiterURL= ""
else
RecruiterURL= rs("Homepage")
end if
rs.close
'*** Get META values ***
'Set query
query = "SELECT MetaTitle, MetaDescr, MetaKeyword FROM Site WHERE SiteID =" & Application("SiteID")
'Get query
RS.Open (query)
if not RS.EOF then
MetaKeyword=RS("MetaKeyword")
MetaTitle=RS("MetaTitle")
MetaDescr=RS("MetaDescr")
end if
rs.Close
'Cleanup
set rs = nothing
%>
