<%@ Import NameSpace="System.Data.OleDb"%>
<%@ Import Namespace="System.Data" %>
zlysy
<%
Session("Wopensql") = System.Configuration.ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
Dim ccnn As OleDbConnection
ccnn = New OleDbConnection(Session("Wopensql"))
ccnn.Open()
Dim Cmdc As OleDbCommand
Dim Rdc As OleDbDataReader
Dim SQLc As String = "Select * From coun where id = 1"
Cmdc = New OleDbCommand(SQLc, ccnn)
Rdc = Cmdc.ExecuteReader()
Session("coun") = 0
While Rdc.Read()
Session("coun") = Rdc.Item("coun")
End While
Rdc.Close()
Session("coun") = Session("coun") + 1
Dim Cmd2 As OleDbCommand
Dim sql1 As String
sql1 = "UPDATE coun SET coun=@coun where id = 1"
Cmd2 = New OleDbCommand(sql1, ccnn)a
Cmd2.Parameters.Add(New OleDbParameter("@coun", OleDbType.Integer))
Cmd2.Parameters(0).Value = Session("coun")
Cmd2.ExecuteNonQuery()
%>