<% response.buffer=true
gst=request.querystring("sayfa")%>
<%busse=session("seh")
Vt_Pth=Server.Mappath("../db/say.mdb")
Cumle= "DBQ="& Vt_Pth &";Driver={Microsoft Access Driver (*.mdb)}"
Dim Bag,Rs,Sorgu,say
Set Bag=Server.CreateObject("Adodb.Connection")
Bag.Open Cumle
Set Rs=Server.CreateObject("Adodb.Recordset")
Sorgu="Select * from sayac where sayac"
Rs.Open Sorgu, Bag, 1, 3
if busse<>"1" then
Rs("sayac")=Rs("sayac")+1
say=Rs("sayac")
session("seh")="1"
Rs.Update
end if
if busse="1" then
say=Rs("sayac")
session("seh")="1"
end if
Rs.Close
Set Rs=Nothing
Bag.Close
Set Bag=Nothing%>
The First International Symposium on Quality&Accreditation in Laboratory Medicine
