%
If InStr(Request.ServerVariables("server_name"),"nasgp.org.uk") > 0 then
ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=nasgp;USER=meltedmedia;PASSWORD=pineapple;OPTION=3;"
SiteURL = "http://www.nasgp.org.uk/"
SetLocale(1033)
End If
If InStr(Request.ServerVariables("server_name"),"nasgp.co.uk") > 0 then
ConnectionString="DRIVER=org.gjt.mm.mysql.Driver;URL={jdbc:mysql://194.216.113.252:3306/alienskin};uid=alienskin;pwd=pineapple;"
SiteURL = "http://www.nasgp.co.uk/"
End If
set con = Server.CreateObject("ADODB.Connection")
con.open(ConnectionString)
'##################################################
'Check to see whether this is a search engine robot
If InStr(Request.ServerVariables("server_name"),"nasgp.org.uk") > 0 then
varUserAgentString = Request.ServerVariables("HTTP_USER_AGENT")
End If
If InStr(Request.ServerVariables("server_name"),"nasgp.co.uk") > 0 then
varUserAgentString = Request.ServerVariables("USER-AGENT")
End If
varIPAddress = Request.ServerVariables("REMOTE_ADDR")
varTimestamp = Year(Date()) & "-" & Month(Date()) & "-" & Day(Date())
varAgent = isSearchBot(varUserAgentString)
if (varAgent <> False) then 'If it is a bot, let it into the password-protected folder
'Check tracking table for a visit by this bot today and record it (if needed)
Set RS_Tracking = Server.CreateObject("ADODB.Recordset")
Sql = "Select tracking_id from NASGP_tracking where user_type = 'Robot' and user_agent_string = '"&varUserAgentString&"' and ip_address = '"&varIPAddress&"' and timestamp = '"&varTimestamp&"'"
RS_Tracking.cursorlocation = 3
RS_Tracking.open Sql, con, 3, 3
If RS_Tracking.EOF then
Sql = "Insert into NASGP_tracking (user_type,agent,user_agent_string,ip_address,timestamp) "
Sql = Sql & "VALUES('Robot','"&varAgent&"','"&varUserAgentString&"','"&varIPAddress&"','"&varTimestamp&"')"
'Response.Write(Sql & "
")
con.Execute(Sql)
End If
Else 'If it isn't, treat as normal
Form_Member = Request.Cookies("Member")
If Form_Member = "" then Form_Member = 0
If Form_Member <> 0 then
Set RS_Member = Server.CreateObject("ADODB.Recordset")
Sql = "Select * from NASGP_members where membernr = "&Form_Member
RS_Member.cursorlocation = 3
RS_Member.open Sql, con, 3, 3
If Not RS_Member.EOF then
Form_Active = trim(RS_Member("Active"))
If Form_Active = 0 then
Form_Inactivated = 1
Session("MembersID2") = Form_Member
End If
If Not isNull(RS_Member("ExpiryDate")) then
Form_ExpiryDay = Day(RS_Member("ExpiryDate"))
Form_ExpiryMonth = Month(RS_Member("ExpiryDate"))
Form_ExpiryYear = Year(RS_Member("ExpiryDate"))
TodaysDate = Month(Date()) & "/" & Day(Date()) & "/" & Year(Date())
If DateDiff("d",Form_ExpiryMonth & "/" & Form_ExpiryDay & "/" & Form_ExpiryYear,TodaysDate) > 0 then
Form_Expired = 1
Session("MembersID2") = Form_Member
Else
Form_Expired = 0
End If
Form_Expiry = Form_ExpiryDay & " " & Monthname(Form_ExpiryMonth) & " " & Form_ExpiryYear
Else
Form_Expiry = "[No match found]"
End If
End If
End If
con.close
Set con = Nothing
if Form_Inactivated = 1 then
Response.Redirect SiteURL & "members/deactivated.asp"
End if
'FirstRun = Request.Cookies("FirstRun")
'If FirstRun = "" then
'Response.Cookies("FirstRun") = "0"
if Form_Expired = 1 then
Response.Redirect SiteURL & "members/expired.asp"
End if
'End If
Validated = Request.Cookies("ValidUser")
if Validated <> "OK" then
'Construct the URL for the current page.
dim s
s = "http://"
s = s & Request.ServerVariables("server_name")
s = s & Request.ServerVariables("URL")
if Request.QueryString.Count > 0 THEN
s = s & "?" & Request.QueryString
end if
'Redirect unauthorized users to the logon page.
Response.Redirect "/login/login.asp?from=" &Server.URLEncode(s)
End if
End if
%>
<%
function isSearchBot(varUserAgentString)
Result = False
Dim BotArray(16)
BotArray(0)="Alexa"
BotArray(1)="Ask.com/Teoma"
BotArray(2)="Baidu Spider"
BotArray(3)="cURL on Mac OS X / Darwin PPC"
BotArray(4)="GameSpy HTTP (GameSpy)"
BotArray(5)="Gigabot (Gigablast)"
BotArray(6)="Googlebot (Google)"
BotArray(7)="Grub (LookSmart)"
BotArray(8)="msnbot (Microsoft's MSN Search)"
BotArray(9)="Scooter (AltaVista)"
BotArray(10)="Wget"
BotArray(11)="Yahoo! Slurp (Yahoo! Search)"
BotArray(12)="Yahoo-MMCrawler (Yahoo! Search)"
BotArray(13)="Mediabot (Google AdSense)"
BotArray(14)="Overture"
BotArray(15)="ConveraCrawler (Public Sites Crawler)"
BotArray(16)="ConveraCrawler (Restricted Sites Crawler)"
Dim UserAgentArray(16)
UserAgentArray(0)="ia_archiver" 'ia_archiver
UserAgentArray(1)="Ask Jeeves/Teoma" 'Mozilla/2.0 (compatible; Ask Jeeves/Teoma)
UserAgentArray(2)="Baiduspider" 'Baiduspider ( http://www.baidu.com/search/spider.htm)
UserAgentArray(3)="curl" 'curl/7.13.1 (powerpc-apple-darwin8.0) libcurl/7.13.1 OpenSSL/0.9.7b zlib/1.2.2
UserAgentArray(4)="GameSpyHTTP" 'GameSpyHTTP/1.0
UserAgentArray(5)="Gigabot" 'Gigabot/2.0
UserAgentArray(6)="Googlebot" 'Googlebot/2.1 (+http://www.google.com/bot.html)
UserAgentArray(7)="grub-client" 'Mozilla/4.0 (compatible; grub-client-1.4.3; Crawl your own stuff with http://grub.org) Mozilla/4.0 (compatible; grub-client-2.3)
UserAgentArray(8)="msnbot" 'msnbot/1.0 (+http://search.msn.com/msnbot.htm)
UserAgentArray(9)="Scooter" 'Scooter-3.2.EX
UserAgentArray(10)="Wget" 'Wget/1.9
UserAgentArray(11)="Yahoo! Slurp" 'Mozilla/5.0 (compatible; Yahoo! Slurp;http://help.yahoo.com/help/us/ysearch/slurp)
UserAgentArray(12)="Yahoo-MMCrawler" 'Yahoo-MMCrawler/3.x (mms dash mmcrawler dash support at yahoo dash inc dot com)
UserAgentArray(13)="Mediapartners-Google" 'Mediapartners-Google/2.1 (+http://www.googlebot.com/bot.html)
UserAgentArray(14)="FAST-WebCrawler" 'FAST-WebCrawler/3.8 (crawler at trd dot overture dot com; http://www.alltheweb.com/help/webmaster/crawler)
UserAgentArray(15)="ConveraCrawler" 'ConveraCrawler/0.9d (+http://www.authoritativeweb.com/crawl)
UserAgentArray(16)="ISSpider" 'crawler (ISSpider-3.0; www.authoritativeweb.com/crawl)
For i = 0 to UBound(UserAgentArray)
pos = instr(1,varUserAgentString,UserAgentArray(i),1)
if pos > 0 then
Result = BotArray(i)
end if
next
isSearchBot = Result
end function
%>
|
|
|
We agreed that in order for SGPs to be fully enfranchised into the structures and processes of their Primary Care Organisation (PCO, such as a PCG, PCT or LHG), the PCO should employ a facilitator [Sessional GP Liaison Officer/SGPLO] to organise and co-ordinate the non-clinical functions of SGPs in its area as well as supporting the SGPs' quality maintenance mechanisms for appraisal and revalidation such as coordinating feedback and collecting audit data. This facilitator would be supported by a fully trained GP mentor to oversee the professional and pastoral needs of those SGPs, and together form the PCO's Sessional GP Support Team (SGPST). The funny thing is is that at our Way Forward meeting were representatives from Bromley PCT who had - we later found out - already set up a very similar scheme in their locality as a means of attracting Freelance GPs into the area. So popular is it that in a recent survey they found that Sessional GPs were the most content GPs working in the PCT! What we now plan to do is to start working with the other medical organisations to formulate a way of setting up these SGPSTs in PCOs across the UK. Meanwhile, if you or your PCO are keen to set a SGPSTs sooner please do get in touch with us so that we can help feed in expertise from other organisations.
Keep an eye on our website for further details as and when they develop.
|
|
|
The NASGP Newsletter is kindly funded by an educational grant from the Medical Protection Society
© NASGP 2001 to 2008. |