%
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
%>
|
|
The National Association of Sessional GPs (NASGP) has a continued aim to foster good relationships between all who work in general practice and in doing so promote high standards of medical care. As an integral part of these aims, the NASGP has detailed its Code of Good Practice which includes endorsing the General Medical Council’s guidance contained in ‘Good medical practice’. Bearing this guidance and our Code of Good Practice in mind, it is hoped all in general practice can work towards meeting these aims. The NASGP acknowledges that there are some established core principles that it supports, namely that:
In addition The National Association of Sessional GPs believes
Practices and their staff have a responsibility to facilitate the delivery of a high standard of care by:
Practices and all GPs have a responsibility to:
The NASGP Code of Good Practice was updated 1st July 2004. You can also download copies of the code: |
What's with all these GoogleAds?!
|
|
The NASGP Newsletter is kindly funded by an educational grant from the Medical Protection Society
© NASGP 2009 |