% veri = "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("../db/haber.mdb") set data = Server.CreateObject("adodb.connection") set rs = Server.CreateObject("adodb.recordset") id = Request.QueryString("id") data.open veri sql = "Select * from haberler Where id= "& id rs.Open Sql, veri, 1, 3 rs("hit")=rs("hit")+1 rs.Update %>
|
||||||||||||||||||
|
||||||||||||||||||
|
||||||||||||||||||