Index: csp/vhisie/TBX/Wizard/tmpDev.mac.rou
===================================================================
diff -u -r79 -r100
--- csp/vhisie/TBX/Wizard/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 79)
+++ csp/vhisie/TBX/Wizard/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 100)
@@ -11,6 +11,10 @@
 	  s:('$D(%ClientIP)) %ClientIP="192.168.1.97"
 	  ;d WL^vhDBG($C(13,10))
 	Set %RemoteIP=$G(%request.CgiEnvs("REMOTE_ADDR"))
+ 
+	// Spam Robots worden geblokkeerd 
+	Quit:($$RedirectSpamRobots^cspBasis.Library(%RemoteIP)) 0
+	
 	Do ophInitLookups^cspBasis.TBX.DecodeURL.tmpDev
 	// Set session data + locals 
 	Kill %session.Data("Taal")
Index: cspBasis/Library.mac.rou
===================================================================
diff -u -r96 -r100
--- cspBasis/Library.mac.rou	(.../Library.mac.rou)	(revision 96)
+++ cspBasis/Library.mac.rou	(.../Library.mac.rou)	(revision 100)
@@ -37,6 +37,15 @@
 	;Set %response.ServerSideRedirect=RedirURL
 	Quit
 	
+RedirectSpamRobots(IPAdres)
+	Set RedirectSpamRobots=(IPAdres?1(1"87.249.110.180"))   ; IP-addresses worden manueel onderhouden door WimV (last modified on 16/11/2011)
+	If RedirectSpamRobots {
+		Do %response.Reset()
+		Set %response.Status="400 Bad Request"
+	}
+	Quit RedirectSpamRobots
+ 
+ 
 SesDataFromRq(SesKey,RqKey,DflVal)
 	Set RqKey=$G(RqKey,SesKey)
 	Quit $$SetSesData^cspBasis.Library($Name(%session.Data(SesKey)),$Name(%request.Data(RqKey,1)),.DflVal)
Index: cspBasis/TBX/DecodeURL/tmpDev.mac.rou
===================================================================
diff -u -r79 -r100
--- cspBasis/TBX/DecodeURL/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 79)
+++ cspBasis/TBX/DecodeURL/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 100)
@@ -13,6 +13,10 @@
 	New %RemoteIP,name,tmpRq,RefArray,OutPage,Ref,luSafe,luTBX
 	New blnSubmit,blnRedir,PSW,i
 	Set %RemoteIP=$G(%request.CgiEnvs("REMOTE_ADDR"))
+ 
+	// Spam Robots worden geblokkeerd 
+	Quit:($$RedirectSpamRobots^cspBasis.Library(%RemoteIP)) 0
+	
 	Do ophInitLookups
 	// Set session data + locals
 	Set Taal=$$SesDataFromRq^cspBasis.Library("Taal",,"N")
Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r96 -r100
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 96)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 100)
@@ -13,6 +13,9 @@
 	Set %RemoteIP=$G(%request.CgiEnvs("REMOTE_ADDR"))
 	Set %ClientIP=%RemoteIP   ; IP voor DebugWindow 
 	
+	// Spam Robots worden geblokkeerd 
+	Quit:($$RedirectSpamRobots^cspBasis.Library(%RemoteIP)) 0
+	
 	Do ophInitLookups^cspBasis.TBX.DecodeURL.tmpDev
 	  ;d WL^vhDBG("Start PreHTTP: ")
 	  ;d:($D(%session.Data("TransfStatus")))&&($D(%request.Data("TRANSF",1))) WL^vhDBG("Init TransfStatus: "_%session.Data("TransfStatus"))