% strSQL = "select money FROM citim" Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open strSQL,Conn,1,1 'Response.Write("num=" & rs("money")) goal = rs("money") rs.close set rs=nothing %>