% set rs =server.createobject("adodb.recordset") rs.Open "select ProtocolCode from D_StockPropertyTransfer where PropertyItemCode ='" & Request.QueryString("ID") & "'",adocn,1,3 if rs("ProtocolCode")="" then rs("ProtocolCode")="1" else rs("ProtocolCode")=rs("ProtocolCode") + 1 end if rs.Update if err then else Response.Write("") end if rs.close set rs=nothing set sqlcommand=server.CreateObject("adodb.command") set sqlcommand.activeconnection=adocn sqlcommand.commandtext="sp_TStockPropertyRightInfo" sqlcommand.commandtype=4 sqlcommand.parameters.append=sqlcommand.createparameter("@PropertyItemID",200,1,18) sqlcommand.parameters("@PropertyItemID")=Request.QueryString("ID") set rs=sqlcommand.execute() function format_num(num) if left(num,1) = "." then format_num = "0" & num else format_num = num end if end function %>