<% set conn = Server.CreateObject("ADODB.Connection") conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sayac.mdb")) %> Untitled Document <% Set TabSay=Conn.execute("Select * from Sayac") if Not TabSay.EOF Then Sayac=TabSay("Sayac")+1 end if TabSay.Close Response.write(Sayac) conn.Execute("update Sayac Set Sayac='"& Sayac &"'") response.redirect("http://www.itmexhibition.com/itm2018.pdf") %>