%@ Language=VBScript %> <% Dim Rs Set Conn3= Server.CreateObject("ADODB.Connection") Conn3.Open Application("Connection_3") Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "SELECT * FROM COUNTER1", Conn3,1,3 IF RS(0) < 10000 THEN RS(0)=Application("INITVALUE") RS.UPDATE ELSE RS(0)=RS(0)+1 RS.UPDATE END IF %> <% Dim Rs4 Set Conn4= Server.CreateObject("ADODB.Connection") Conn4.Open Application("Connection_4") Set Rs4 = Server.CreateObject("ADODB.Recordset") Rs4.Open "SELECT * FROM count", Conn4,1,3 IF RS4(0) < 0 THEN RS4(0)=Application("INITVALUE") RS4.UPDATE ELSE RS4(0)=RS4(0)+1 RS4.UPDATE END IF %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||