<% thisURL = Request.ServerVariables("PATH_INFO") Set cnn1 = Server.CreateObject("ADODB.Connection") openStr = "driver={Microsoft Access Driver (*.mdb)};" & _ "dbq=" & Server.MapPath("\klaus5\fpdb\pageCounters.mdb") cnn1.Open openStr,"","" sql = "SELECT url, hitcnt, lasthit " & _ "FROM count_klaus_5 " & _ "WHERE url = '" & thisURL & "';" Set recordHits= Server.CreateObject("ADODB.Recordset") recordHits.Open sql, cnn1, 2, 2, 1 If recordHits.EOF Then recordHits.AddNew recordHits("url") = thisURL curCount = 1 Else curCount = recordHits("hitcnt") + 1 end If recordHits("hitcnt") = curCount recordHits("lasthit") = Now() recordHits.Update recordHits.Close set recordHits = Nothing cnn1.Close set cnn1 = Nothing %> Klaus-Käfertuning - product

 

the product – enduring parts with constant value for a long time

 

                                       

 technical advancement

  • trend setting developements

                                       

lightweight

  • specific use of Al, Mg, CRP und GRP
                                       

design

  • form follows function - in a aesthetic way

                                       

 

[ back to topic selector! ]