<%
Session( "Connect" ) = "DBQ=" + Server.MapPath(".") + "\Counter.mdb;DRIVER=Microsoft Access Driver (*.mdb);UID=admin;PWD="
'
'
set rs = Server.CreateObject("ADODB.Recordset")
StrSQL = "SELECT * FROM SN_Counter Where Table_name='Count'"
rs.Open StrSQL,Session("Connect"),2,2,1
rs("SN") = rs("SN") + 1
rs.Update
rs.Close
set rs = nothing
'
'
set rs1 = Server.CreateObject("ADODB.Recordset")
'StrSQL = "SELECT * FROM SN_Counter Where Table_name='Count'"
rs1.Open StrSQL,Session("Connect"),2,2,1
count=Cstr(rs1("SN"))
For i = 1 to (7-Len(count))
Gdraw = Gdraw & "![]()
"
Next
For i = 1 to Len(count)
Gdraw = Gdraw & " & )
"
Next
rs1.close
set rs1=nothing
%>
新國環境開發股份有限公司•提供焚化爐、燃燒爐、燒卻爐、incinerator等等廢棄物處理設備及垃圾處理設備