Optimera räknar kod.

Kan man optimera den här räknar koden på något sätt:

'------------ Webbläsare

Set rs = Connect.Execute("SELECT browser FROM raknare_browser where browser = '"& getBrowser &"'")

If rs.eof then
Connect.Execute("INSERT INTO raknare_browser (browser,antalb) VALUES('"& getBrowser &"','1' )")
Else
Connect.Execute("UPDATE raknare_browser SET antal = antal + 1 WHERE browser = '"& getBrowser &"'")
End If
rs.close : Set rs=Nothing

'------------ Webbläsare Slut

'------------ Operativsystem

Set rs = Connect.Execute("SELECT operativsys FROM raknare_os where operativs = '"& getOS &"'")
If rs.eof then
Connect.Execute("INSERT INTO raknare_os (operativsys,antal) VALUES('"& getOS &"','1' )")
Else
Connect.Execute("UPDATE raknare_os SET antal = antal + 1 WHERE operativsys = '"& getOS &"'")
End If
rs.close : Set rs=Nothing

'------------ Operativsystem Slut

'------------ Vilket ISP

Set rs = Connect.Execute("SELECT ispleve FROM raknare_isp where ispleve = '"& GetISPet &"'")
If rs.eof then
Connect.Execute("INSERT INTO raknare_isp (ispleve,antal) VALUES('"& GetISPet &"','1' )")
Else
Connect.Execute("UPDATE raknare_isp SET antal = antal + 1 WHERE ispleve = '"& GetISPet &"'")
End If
rs.close : Set rs=Nothing

'------------ Vilket ISP Slut

'------------ Vart besökare kom ifrån

Set rs = Connect.Execute("SELECT * FROM raknare_from where come_from = '"& Replace(Request.ServerVariables("HTTP_REFERER"),"'","''") &"'")
If rs.eof then
Connect.Execute("INSERT INTO raknare_from (come_from,antal) VALUES('"& Replace(Request.ServerVariables("HTTP_REFERER"),"'","''") &"','1' )")
Else
Connect.Execute("UPDATE come_from SET antal = antal + 1 WHERE browser = '"& Replace(Request.ServerVariables("HTTP_REFERER"),"'","''") &"'")
End If
rs.close : Set rs=Nothing

'------------ Vart besökare kom ifrån Slut